B 13 


i cee eet eel al en a Ne Oe Oe Oe oe 
et ee eal eel eet ace a ee ed oe oe oa oe oe coe ea 
ee eel cel eel eel ae oN ee ce oe ce oe oe ee 


— os 
—— 
— 
SG Gd a ag as Gs ns Os OG OG Od Og Og Beg Og ng Og 
SF Ek ad ng ag ng a a nd Og nd Og Og Og Og Og Og Og eg 
FS OS OS ak Ok a ak Od nd Od nd Od nd Od Od Od Od Og Og 


— ee 
ee 
-——— 
OS Ok Ok nk Od Od Od Od Od Od Od Od Od Od Od Od Od Og Og On 
SS kk Ok kd Od Od Ok Od Od Od On Od Od Od Od Od og eg 
SS 8 dk OS OS OS Od Od OE Od Od Od OS Bd Od Od Og Og Og 
— 
“es 
— os 


-_> OO ee Se HS HS He He Se HS HO OS HS HS He OS HS He TS HS HS HE HS HS HSS HS HE He HHS TE HSS FETS TS FSFE HS HSS HS HS HSS FSS HSS HSS SHES 


—-— LCF 


eaca ca 
eccac ca 
ca ca ca 
ca ca ca 
ca ecccac 
ca eccac 
ca ca 
ca ca 
Qaaacaacacacaacaca 
@Qaacncaaacaacacaccaca 
a 
<«q<q<4¢a ae eaeacacacae 
qeaddataeaeaeaeacacaca 
et << << 
+. 4 tt 
<< <6 
<< << 
—¢ qt 
<< it 
<«<4q<«<4a aa aeetaaaaet 
<«qqaqaqdaaeaaeaacacae 
aaaa 
aaaa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aaqaaaaaaagdgaaaaa 
aaqaagaaaaqaaaaaaa 
nn Munn 
nw Mnn 
ae ee nn nw wn 
kent Cn hemnl mw nw nn 
OO Et a at ed Oy ee ed Oe vw nw “nn 
gn a ee ed ee mn nw nn 
oe io) mn nn nn 
— oe Mn nn ww 
MMwnwn nn 
MMMM nn 
zz z z z 
2222222222 E2E= 
ee —o 
3 = enous 
+4 Et a ee a ad te 
er te ne ee ee ee 


ee _—— 
— =o 


a 

a 

ne eee ieeenl =e!) 
ed noe i) 
dD es et ne et ee a4 
ed Eg ad td en ee a4 
= tee ao 
at nae a4 
ao Id I I I I I I II I 

ee 


**F I LE®* [Dee INIPAR 


Page 1 
JINIPAR.B32;1)9" (1) 


4.0-742 
NIT.SRC 


MODULE INIPAR ( 
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BEGIN : 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ACCORDANCE Me THE TERMS OF SUCH ant = we THE 
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: Vv * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. : 
we 

's THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ” 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
's CORPORATION. © 
' s 
'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
'w SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
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i ABSTRACT: 


This module contains the data base and utilities used to acquire the 
INIT command Line from the CLI parser. 


i ENVIRONMENT: 


FS FAWAWAWINI 


STARLET operating system, including privileged system services 
and internal exec routines. 
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; FACILITY: INIT Utility Structure Level 2 
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Add support for alphanumeric Vics. 
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pee AUTHOR: Andrew C. Goldstein, CREATION DATE: 8=-Nov-1977 22:29 
30 MODIFIED BY: 
3 i v03-005 MCNO140 Maria del C. Nasr 23-Nov-1983 
Change to new CLI interface. 
i v03-004 LMP0140 L. Mark Pilant 22-Aug-1983 12:51 
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Sep-1984 116 VAK#11_ BLiss-32.v4.0-74 
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; 1! v03-003 $TJ3089 Jeffreys 

3. 1! Ria cooport for SENOSCRAGE cea SEROINIGHCATER, ee 

; 61 1! VO3-002 mMD0132 Meg Dumont, = 12-Apr-1983. 17: 

4 : Add support for cae aot cuderesen® as walla Ah, S for tape 

; 64 1! v03-001 MMD0128 Meg Dum 8-Apr-19 

0065 1 | Added Seelgnere’ 9 /OVERRIDE and to, /LABEL to. ‘allow 

3 ser | wi Tba tol ttle Rit pated eset adel 

see 1! ty ce tte aalitin. ee support 

; 01: v02-007 pmw0017 David Michael wal -Jan- 

0078 : } Uppercase value of volume weccess {bility tit 

; 0073 1! v02-006 ACG43021 Andrew C. Goldstei -Jan- : 

bore : tore index file LBN os Bots y - enrree > wees 

: 076 1: v02-005 pMw0015 i -Aug- 

0077 | eo | David Michael Walp 26-Aug-1981 

: 0079 1! V02-004 DMw0003 avid Michael wal -Mar- 

; 9080 Added 7ANS1=VOLURE EVACCESSIBILTY: "x" switch wSnpscnlaal 

; 0082 1} V02-003 RLRDENS Robert L. Ra -O0ct- 

a088 } Added /DENSITY=1 and "DENSI T¥e> su a for RX02"s — 

: 0085 1} 

3 poee 1 !ee 

; ait 1 

: BOBS | LIBRARY *SYSSLIORAR 32 

: . L ARY:LIB. "2 

; 9090 1 REQUIRE SRCSSINIDER BSoe 

; 0381 1 REQUIRE 'LIBD$:CVMSLIB.OBJJINITMSG.B32' 

; 0513 1 LIBRARY 'SYSSLIBRARY:CLIMAC.L32'; 

3 0514 1 LIBRARY ‘SYSS$LIBRARY:TPAMAC.L32'; 
| 
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i Impure data area. This area contains a | INIT perancters extracted from 
the command Line by the associated parsing routines. 


LITERAL 
BAD_TABLE_LEN = 100; ! Length of bad block table 

GLOBAL 
INIT_OPTIONS : BITVECTOR (64), ' option {logs 
PROTECTION, ' value of /PROTECTION switch 
FILE_PROT, ! value of /FILE_PROTECTION switch 
MAXIMUM, ' value of /MAXIMUM switch 
INDEX ' LBN of index file start 
CLUSTER, i value of /CLUSTER switch 
HEADERS ' value of /HEADERS switch 
DIRECTORIES, !' number of MFD entries to preatlecete 
OWNER_UIC, ' value of /OWNER_UIC switc 
EXTENSION, ' yalue of /EXTENSION switch 
WINDOW ' value of /WINDOW switch 
ACCESSED i value of /ACCESSED switch 
DEVICE STRING : BBLOCK DSC$C_S_BLN], ! decriptor of device name strin 
LABEL STRING : BBLOCK CDSC$C~S~ 
USER E : BBLOCK CDSCS$C_S_BLNJ, ! descriptor of user name string 
BADBCOCK_COUNT, ' count of manually entered bad blocks 
BADBLOCK-TABLE : BBLOCKVECTOR CBAD_TABLE_LEN, BAD_LENGTHJ, 

! manually entered bad blocks ; 

VOL_ACC : BYTE ' value of /LABEL:VOLUME_ACCESS switch 
VOL “OWNER : VECTOR (14,BYTE), i value of /LABEL=OWNER_ID 
DATA_PTR : VECTOR (32,BYTE), ' value of OWNER-ID from command Line 
DATA_INDEX; ! index into data_ptr 


1 
Assorted impure data. 


OWN 
CLI_DESC : BBLOCK poscec.s BLN] 'CLI work descriptor 
TPARSE_BLOCK =: BBLOCK CTPASK-LENGTHO) 
INITIAL (TPASR_COUNTO, TPASM_BLANKS OR TPASM_ABBREV), 
PROT_VAL, 
vic; 
EXTERNAL LITERAL 
CLIS_DEFAULTED, 
CLIS_NEGATED, 
CLIS-PRESENT; 


§ BLN: i descriptor of volume label string 
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Request descriptors to the CLI parser. Labels are deemed sufficiently 
PARSE _QUALIFIERS: NOVALUE, 


obvious to make cluttering the code with comments unnecessary. 
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GLOBAL ROUTINE INIT_PARSE : NOVALUE = 


'ee 


' 
FUNCTIONAL DESCRIPTION: 


area. 


CALLING SEQUENCE: 
INIT_PARSE 
INPUT PARAMETERS: 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
parser impure area on preceding pages 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 

Initialize result parsing. 
INIT_OPTIONS = INIT_OPTIONS+4 
INIT_OPTIONSCOPT_NORIGHWATER) 


: Initialize descriptor 


CHSFILL ( 0, DSCSC_S BLN, CLI_DESC ); 
CLI_DESC CDSC$B_CLASS) = DSCS$R_CLASS.D; 


-o 
. 


Parse command qualifiers. (Most of the action routines are called during 


i] 

this call.) 
PARSE_QUALIFIERS (); 

} Now acquire device name. 


CHSFILL ( 0, DSCSC_S_BLN, DEVICE_STRING ); 


4.0- 5 | 
NIT. ) 


On 
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This routine parses the INIT command Line by calling the CLI 
result parse routines, and leaves the results in the global data 


' /NOHIGHWATER Leaves it set 


0 9 
INIPAR 16-Sep-1984 01:48:1 VAX-11 Bliss-32 V4.0-742 Page 6) 
v04-000 1o- 808-1382 5:48: DISKSVMSMASTER:CINIT.SRCJINIPAR.B32:1- > (4) | 
: 260 78 2 DEVICE_STRING [DSC$B_CLASS) = DSCSK_CLASS_D; | 
61 es CLYSGET VALUE ( SoeerniProR( pevieetse DEVICE_STRING ); | 
s 8 681 ' Now acquire volume name. 
: $8e oes 5 
: 684 2 CHSFILL ( 0, DSC$C_S_BLN, LABEL_STRING ); 
; €9 685 LABEL STRING Postse TLAS$] = 5StéK CLASS. D; | 
; $8 06 6 CLISGET_VALUE ( SDESCRIPTOR('VOLUME'), LABEL_STRING ); | 
: 270 688 ! The qualifier /STRUCTURE=1 cannot be used with /CLUSTER or 
: 271 689 i /DATA_CHECK 
3 Lf 0 ! 
, a 0691 
: 27 069 IF .INIT_OPTIONS COPT_STRUCTURE1) 
: 275 069 AND ( TINIT OPTIONS” LOPT CLUSTER] 
: 27 0694 OR .IRIT_OPTIONS COPT_READCHECK) 
; Af 0695 : OR .INITZOPTIONS COPT“WRITECHECK) ) 
: 2? 0699 ERR_EXIT (INIT$_CONFQUAL); 
: 280 0698 | 
; «281 0699 1 END; ! end of routine INIT_PARSE 
.TITLE INIPAR 
“IDENT \V04-000\ 
.PSECT $PLIT$,NOWRT,NOEXE,2 
44 45 53 53 45 43 43 41 00000 P.AAB: .ASCII \ACCESSED\ ; 
00000008 00008 P.AAA: .LON : 
00000000" 0000¢ [ADDRESS P.AAB ; 
53 48 43 4F 4C 42 44 41 42 90019 P.AAD: .ASCII  \BADBLOCKS\ ; 
0019 ‘BLKB 3 
00000009 O001C P.AAC: :LONG 9 ; 
00000009" 990 6 “ADDRESS P.AAD ; 
45 SA 49 53 SF 52 45 54 53 55 4C 43 00024 P.AAF: .ASCII \CLUSTER_SIZE\ : 
0000000C 00030 P.AAE: <LONG 12 : 
00000000" 000 “ADDRESS P.AAF : 
4B 43 45 48 43 SF 41 54 41 44 000 8 P.AAH: .ASCII \DATA_CHECK\ ; 
004 -BLKB 2 
0000000A 00044 P.AAG: .LONG 10 F 
00090000" 0048 “ADDRESS P.AAH ; 
59 54 49 53 4E 45 44 a038 P.AAJ ASCII \DENSITY\ : | 
90000007 084 P.AAL: .LONG 7 : 
0 090000" 53 “ADDRESS P.AAJ ; 
53 45 49 52 4F 546 43 45 52 49 44 05 P.AAL: “ASCII \DIRECTORIES\ ; 
00 000 068 P.AAK: .LONG 11 ; 
0000000 906 “ADDRESS P.AAL ; 
45 53 41 45 00070 P.AAN: <ASCII  \ERASE\ ; 
7 -BLKB | 
000 9005 78 P.AAM: .LONG ; 
9 0 9° 7¢ “ADDRESS P.AAN : 
6E 4F 49 53 GE 45 564 4 080 P.AAP: ASCII  \EXTENSION\ : | 
089 -BLKB 3 
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1b-5e -1984 48:1 VAX-11 Bliss p 7 
1 ~30P7 138% 93:98:18 DISKSVMSMAST JINIPAR.B32:1) >" (4) 
0000009 P.AAO: .LONG : 
2090009 . gf eADDRESS P.AAP : 
49 56 63 65 54 GF 52 50 SF 45 4c & te 34 P.AAR “ASHI \FILE_PROTECTION\ : 
00 000F Aa P.AAQ: <LONG 15 ; 
0 9" Ag “ADDRESS P.AAR : 
50 55 4F 4 AC P.AAT: . ASCII \GROUP\ 3 
081 “BLKB 
90000005 0B4 P.AAS: .LONG ; 
0090000" 00B8 “ADDRESS P.AAT : | 
53 52 45 46 41 45 & anes P.AAV ASCII \HEADERS\ : 
90000007 7 P.AAU: .LONG ; 
690009" 00¢8 “ADDRESS P.AAV : 
52 45 54 41 57 48 47 49 & o0c¢ P.AAX: ASCII \HIGHWATER\ : 
90000009 00D8 P.AAW: .LONG : 
00000000" 0000 “ADDRESS P.AAX : 
58 45 46 4E 49 G00e9 P.AAZ: “ASCII \INDEX\ : 
00000005 O00EB P.AAY: LONG : 
00000000' OOdEC “ADDRESS P.AAZ : 

45 47 4E 41 48 43 52 45 54 4E 49 900FO P.ABB: -ASCII \INTERCHANGE \ : 
00000008 OO0FC P.ABA: <LONG 11 : 
00000000° 90190 “ADDRESS P.ABB : 

4C 45 42 41 4C 00104 P.ABD: ‘ASCII \LABEL\ ; 
00109 "BLKB 3 
00000005 0010¢ P.ABC: <:LONG 5 : 
00000000" 00110 “ADDRESS P.ABD : 
53 45 4C 49 46 SF 4D 55 4D 49 58 41 4D Boot P.ABF: ot} rn ee 3 
00000000 00124 P.ABE: .LONG : 
00900000" 0128 “ADDRESS P.ABF : 
45 46 49 52 52 45 odSoogh 01 ¢ B-ABH: ASCII NOVERRIDE\ 
00990000" 01 8 ~ ADDRESS P.ABH : 
43 49 5S SF 52 45 4E 4F o15¢ P.ABJ: ASCII YOUNER_UIC\ : 
00000009 00148 P.ABI: .:LONG 9 ; 
00990000" 0146 “ADDRESS P.ABJ : 
4E GF 469 54 43 45 54 GF 52 5 9150 P.ABL ASCII \PROTECTION\ ; 
909 99 A 13¢ P.ABK: . ; 
00000 9 16 “ADDRESS P.ABL : 
45 52 41 4 164 P.ABN: .ASCII \SHARE\ F 
169 BLKB 
90000005 16¢ P.ABM: .LONG ; 
009 0099" 1 “ADDRESS P.ABN : 
45 52 55 54 43 55 52 54 174 P.ABP: ASCIT  \STRUCTURE\ : | 
990000 9 00180 P.ABO: <LONG : 
099 0 9° 1 “ADDRESS P.ABP : 
4D 45 54 53 1 P.ABR ASCII \SYSTEM\ : | 
99000006 190 P.ABQ: ‘LONG 6 : 
0000' 00194 “ADDRESS P.ABR : 
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INIPAR 16-Sep-1984 01:48:1 VAX=11 Bliss-32 V4.0-742 P 
tye O60 en eeen TFRs Pb SE SH eee tee YNie one aINIPAR.032:10%" cas 
45 4D 41 4E SF 52 45 53 55 198 P.ABT: ASCII ‘ert ; 
990 00 9 OO1A4 P.ABS: :LONG F 
0° O01A8 “ADDRESS P.ABT ; 
44 465 49 466 49 52 & TAC BABY: “ASCH \VERIFIED\ : 
B09000 ' 00188 © SADDRESS P.ABV : | 
5357 GF 46 4E 4 1B¢ P.ABX: ASCII \WINDOWS\ ; | 
900 9007 1C4 P.ABW: .LONG 7 ; 
0000" 001¢8 “ADDRESS P.ABX : 
45 43 49 56 45 46 1c¢ P.ABZ: “ASCII \DEVICEN ; 
90000006 104 P.ABY: LONG 6 : 
0000 9 * 00108 “ADDRESS P.ABZ : 
45 4D 55 4C 4F 56 o10¢ P.ACB: ASCII \VOLUME\ ; 
00000006 OOtes P.ACA: .LONG 6 ; 
00000000" 001E8 “ADDRESS P.ACB : 


-PSECT SOWNS,NOEXE,2 
00000 CLI_DESC: 


00000003 00000008 00008 TPARSE_BLOCK: 
-LONG 68, 3 : 
00010 “BLKB 28 
0002¢ PROT_VAL: * 
00030 UIC: ;BLKB 4 


.PSECT $GLOBAL$,NOEXE,2 
00000 INIT_OPTIONS:: 
00008 PROTECTION: : 
0000¢ FILE_PROTs: 
00010 MAXIMUM: : 


J B 
00014 INDEX:: .BLKB 
00018 CLUSTER:: 


0001C HEADERS:: 7 
00020 DIRECTORIES: 
00024 OWNER_UIC:: 
00028 EXTENSION: : 


~BLK 
00080 AccESSED:: 


-BLKB 
00034 DEVICE_STRING: : 
.BLKB 
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0000" 


56 


CF 


007¢ 
0000" CF 9E 


iSoseo-t9ge O1:48: 
0003C LABEL_STRING:: 
00044 USER_NAME: : if 
0004C BADBLOCK. aa 
00050 BADBLOCK_ TABLE: 


00370 VOL_ACC:: 
BLKB 


O08) -BLKB 
0374 VOL_OWNER: : 

-BLKB 

0382 -BLKB 
0384 DATA_PTR:: 

OO3A4 DATA_INDEX: : 
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0660 
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INIPAR 16-Sep 4 VAX-11 Bliss-32 v4. ge 10 
v04-000 12:8 Sep 71382 9}: 48: 1§ DISKSVMSMASTER: a Ynis sh CRC JINIPAR. B32:1 (4) | 
0000v CF FB QOOIA CALL , PARSE_QUALIFIERS 3 067 
08 00 bE - b 2¢ If MOVC AN (SP),~ “ae, #8, DEVICE_STRING : g676 
37 Ab 0 30 6 MOVB #2, DEVICE_STRING+3 : 0678 
34 AG OF A PUSHAB DEVICE_STRING + 0679 
0000' CF 9F 0 D PUSHAB P.ABY : 
00006 CF : FB 1 CALL “3, CLISGET_VALUE ; 
08 00 6E oe 2c 00 6 mMovCS #0, (SP), #0, #8, LABEL_STRING + 0684 
3F A 03 90 0003p MOVB LABEL_STRING+3 > 0685 
3c = A6sOF: «00041 PUSHAB react _STRING + 0686 
0000' CF 9F 44 PUSHAB : 
00006 CF 2 FB 48 CALLS #2, CLISGET_VALUE ; 
03 Ab 95 00040 TSTB NIT_OPTIONS+3 + 0692 
1A 18 0050 BGEQ ; 
01 Ab 9 00052 TSTB. —sINIT_OPTIONS+1 + 0693 
08 19 0005 BLSS $ : 
6 95 00057 TSTB. —sCINI T_OPTIONS + 0694 
4 19 00059 BLSS =s«*1$ : 
0D 01 Aé €9 00058 BLBC —sINIT_OPTIONS+1, 2$ + 0695 
0075802C 8F DD O005F 1$: PUSHL #7700524 + 0697 
000000006 00 01 FB 00065 CALLS #1, LIB$STOP ; 
04 0006C 2$: RET + 0699 
; Routine Size: 109 bytes, Routine Base: S$CODE$S + 0000 
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1278 08-13be 93:98:18 DISKSVMSMASTER:CINIT.SRCJINIPAR.B32:1.— (5 
ROUTINE PARSE_QUALIFIERS : NOVALUE = 
bee 
1 
FUNCTIONAL DESCRIPTION: 


This routine ee the qualifiers of the INIT command Line by 
calling the CLI result parse routines. 


CALLING SEQUENCE: 
PARSE_QUALIFIERS () 


INPUT PARAMETERS: 
NONE 


eel 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
INIT_OPTIONS bits set 


ROUTINE VALUE: 
NONE 

SIDE EFFECTS: 
NONE 


BEGIN 


/ACCESSED qualifier 
if INIT_OPTIONS COPT_ACCESSED] = CLISPRESENT (ACCESSED_DESC) ) 


IMPLICIT INPUTS: 
NONE 

BEGIN 

CLISGET VALUE ( ACCESSED DESC, CL 


DESC ); 
IF NOT T LIBS$CVT_DTB ( .CLI_DESC COSCS$W_LENGTH) 
-CLT_DESC CDSC$A_POINTERJ, 
ACCESSED ) ) 


THEN | 
ERR_EXIT (INIT$_VALCNVERR); 
END; 
/BADBLOCKS qualifier 
if _( INIT OPTIONS COPT_BADBLOCKS] = CLISPRESENT (BADBLOCKS_DESC) ) | 
BADBLOCKS_ACT (); | 
! /CLUSTER qualifier | 
if ( INIT_OPTIONS COPT_CLUSTER] = CLISPRESENT (CLUSTER_DESC) ) | 
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40 THEN 3 
41 BEGIN : 
4g CLISGET VALUE ( CLUSTER_DESC, CLI DESC ); : 
4 IF NOT T LIBSCVT_DTB ( TCLI_bESC tose w_LENGTH) : 
4 -CLT_DESC COSC$AK_POINTER], : 
45 CLUSTER ) ) ; 
Ag THEN ; 
4 ERR_EXIT (INITS_VALCNVERR); : 
rt END; : 
30 ! /DATA_CHECK qualifier (value not required) ; 
5 iF CLISPRESENT (DATA_DESC) ; 
5 THEN 3 
2 DATACHECK_ACT (); : 
36 ! /DENSITY qualifier : 
38 iF ‘ INIT_OPTIONS COPT_DENSITY] = CLISPRESENT (DENSITY_DESC) ) ; 
60 DENSITY_ACT (); ; 


/DIRECTORIES qualifier 


) 


ten INIT_OPTIONS COPT_DIRECTORIES] = CLISPRESENT (DIRECT_DESC) ) 


BEGIN 
CLISGET_VALUE ( DIRECT_DESC, CLI_DESC ); 
IF NOT T LIBSCVT_DTB (~.CLI_DESC”COSC$W_LENGTHI, 
-CLT_DESC COSCSA_POINTER), 
DIRECTORIES ) ) 
THEN 
- ERR_EXIT (CINITS_VALCNVERR); 
/ERASE qualifier 
SELECTONE CLISPRESENT (ERASE_DESC) OF 
CCLIS_PRESENT] : INIT_OPTIONS COPT_ERASE] = 1; 
COLES DEFAULTED. 
CLIS_NEGATED : INIT_OPTIONS COPT_ERASE] = 0; 


/EXTENSION qualifier 
if INIT_OPTIONS COPT_EXTENSION] = CLISPRESENT (EXTENSION_DESC) ) 
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BEGIN 
9 CLISGET_VALUE ( EXTENSION _DESC ch DESC ); 

IF NOT T LIBSCVT_DTB ¢ .CCI_DESC pscsiy LENGTH) 
1 .CLT_ DESC COSCSA_POINTER), 
1 EXTENSION ) ) 
1 THEN 
1 ERR_EXIT (INITS_VALCNVERR); 
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04-000 ee tioe ts raat Me SPE eg fd 2 
g 338 1% END; ; 
: 339 1 | /FILE_PROTECTION qualifier : 
; 401 18 if ( INIT_OPTIONS COPT_FILE_PROT] = CLISPRESENT (FILE_DESC) ) : 
: 40 0 FILE_PROT_ACT (); : 
; 4046 1 ° 
: 405 ; ' /GROUP qualifier : 
3 rts 8 ; ; 
; 40 4 iF CLISPRESENT ( GROUP_DESC ) : 
; 108 $ INIT_OPTIONS COPT_GROUP] = 1 : 
; 410 8 EL : 
: 411 828 INIT_OPTIONS COPT_GROUP] = 0; : 
; aig 0829 : 
: 41 08 0 : 
: aig 08 1 | /HEADERS qualifier : 
: 616 08 j if ( INIT_OPTIONS COPT_HEADERS] = CLISPRESENT (HEADERS_DESC) ) : 
> 417 0854 THEN ; 
: 418 0835 BEGIN : 
: 419 0836 CLISGET_VALUE ( HEADERS_DESC, CLI_DESC ); : 
; $39 ett 4 IF NOT T LIBSCVT_DTB ( TCLI_DESC [CDSCS$W_LENGTH) : 
> 421 0838 4 CLT DESC COSCSA_POINTER, : 
3; 6 : 0839 4 HEADERS ) ) : 
: 4 840 ; THEN : 
: 426 0841 ERR_EXIT (INIT$_VALCNVERR); : 
; 425 0 rh} END; 
: 426 084 
3 rtf 0844 ! /HIGHWATER qualifier 
: 428 0845 2: 
; 409 0846 2 SELECTONE CLISPRESENT (HIGH_DESC) OF 
; 430 0847 SET 
: 431 9 48 CCLIS$_PRESENT 
; 43¢ 49 CLISTDEFAULTED] =: INIT_OPTIONS COPT_NOHIGHWATER) = 0; 
; a3 o 51 CCLIS_NEGATEDJ : INIT_OPTIONS COPT_NOHIGHWATER] = 1; 
> 435 Be TES; 
: 436 085 
3; 437 854 ! INDEX qualifier 
: 438 0855 i 
: 439 36 if CLISPRESENT (INDEX_DESC) 
; 640 2 
> 441 8 INDEX_ACT (); 
; 46 59 
3 rr 569 : /INTERCHANGE qualifier 
; 445 ses SELECTONE CLISPRESENT (INTERCHG_DESC) OF 
; 447 4 CCLIS_PRESENT) : INIT_OPTIONS COPT_INTERCHG) = 1; 
t 449 beg CCLIS_DEFAULTED, 
> 450 CLIS“NEGATED : INIT_OPTIONS COPT_INTERCHG) = 0; 
> 451 8 TES; 
3 $26 
; «45 0 ! /LABEL qualifier 
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LISPRESENT (LABEL_DESC) 

LABEL_QUAL_ACT (); 

} /MAXIMUM qualifier 

THEN INIT_OPTIONS COPT_MAXIMUM] = CLISPRESENT (MAXIMUM_DESC) ) 


' 
IF C 
THEN 


CLTscer VALUE ( MAXIMUM, DESC L1_DESC 
F NOT T LIBSCVT_DTB ( I bes $C costs 
DESC COSC 


DE 
“btabe 
THEN 
‘ ERR_EXIT (INIT$_VALCNVERR) ; 
1 /OVERRIDE qualifier 
if CLISPRESENT (OVERRIDE_DESC) 
OVERRIDE_ACT (); 
/OWNER_UIC qualifier 
if ( INIT_OPTIONS COPT_OWNER_UIC] = CLISPRESENT (OWNER_DESC) ) 
OWNER_UIC_ACT (); 


/PROTECTION qualifier 

a . INIT_OPTIONS COPT_PROTECTION] = CLISPRESENT (PROTECTION_DESC) ) 
PROTECTION_ACT (); 

/SHARE qualifier 

SELECTONE CLISPRESENT ( SHARE_DESC ) OF 


CCLIS_PRESENT] : BEGIN 
INIT_OPTIONS COPT_SHARE] =1; 
Init. OPTIONS COPT“EXPNOTMT) = 1; ' not allowed for tapes 
FCLI$_DEFAULT D] : INIT_OPTIONS COPT_SHARE) = 1; 
CLIS_NEGAT INIT-OPTIONS COPT“SHARE) = 0; 


/STRUCTURE qualifier 

IF CLISPRESENT (STRUCTURE_DESC) 
STRUCTURE_ACT (); 

! /SYSTEM qualifier 
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3 St} 9 ! ; 
3 \§ 4 if CLISPRESENT ( SYSTEM_DESC ) : 
; \ 4 INIT_OPTIONS COPT_SYSTEM]) = 1 ; 
; \$ 8 § INIT_OPTIONS COPT_SYSTEM) = 0; ; 
3 18 ; 5 /USER qualifier : 
3 , g ? i . INIT_OPTIONS COPT_USER_NAME] = CLISPRESENT (USER_DESC) ) : 
; ; g 939 USER_NAME_ACT (); ; 
3 4 941 ! /VERIFIED qualifier : 
; 525 b4 ! 2 
FY H $ Beez SELECTONE CLISPRESENT ( VERIFIED_DESC ) OF : 
; 528 Bete CCLIS_PRESENT) 2 tb $ 
; 529 nes INIT_OPTIONS COPT_VERIFIED] = A é 
$ : 0 094 INIT~ OPTIONS OPT-EXP_VER] = : 
3 31 0948 INIT-OPTIONS COPT ~EXPROTAT) = | ! not allowed for tapes $ 
3 23¢ 0949 END; 3 
; 53 0950 CCLIS_DEFAULTED] : BEGIN ; 
3 23e 0951 INIT_OPTIONS COPT_VERIFIED) =1; F 
s $35 B23¢ INIT_OPTIONS OPT~ EXP_VER] = 0; 3 
3; 336 095 END 

; 337 0954 CCLIS_NEGATED] : BEGIN 

; 538 0955 INIT_OPTIONS COPT oVERIF IER = 2 

; 539 0956 INIT_OPTIONS COPT “EXP VER) = 

: 540 0957 INIT_OPTIONS COPT “EXPROTMT] = » ! not allowed for tapes 

; 541 0958 END; 

3 26g 0959 TES; 

3; «54 0960 

s see Bpe) /WINDOWS qualifier 

; 546 $388 IF ( INIT_OPTIONS COPT_WINDOW] = CLISPRESENT (WINDOW_DESC) ) 

3; 547 0964 THEN 

; 548 0965 BEGIN 

: rh $44] CLISGET_VALUE ( WINDOW_DESC, CLI_DESC ); 

; «551 0968 4 IF NOT ( LIBSCVT_DTB (¢ .CLI DESC COSC$W_LENGTH), 

5 23¢ 0969 4 

. a 0970 4 WINDOW 

3 eee 971 ; THEN 

; 555 97 ERR_EXIT (INIT$_VALCNVERR); 

: 556 097 § D; 

: 557 0974 

; 558 0975 1 END; ! of PARSE_QUALIFIER routine 


OFFC 00000 PARSE oOUM TE TERS: 
ave 
58 G CF 000 MOVAB LIBS 
5A 800 G CF 5 000 MOVAB CLI$ 
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v04-000 1 tat 1 93:98:18 DISKSVMSMASTER:CINIT.SRCJINIPAR.B32; 1 . (33 
04 AS OD O00E USHL  CLI_DESC+4 : 0787 ; 
7E RP ER MOVZWL CLIZDESC, -(SP) : 0786 ; 
68 Fe EB CALLS ‘ : * sc : : 
0075805c BF DD H PUSHL RO 40 72 + 0790 : 
66 1 FB OO0F CALLS #1, LIBSSTOP ; ; 
70 AS 9F OOOFA 6$ PUSHAB ERASE DES¢ + 0795 F 
64 01 FB OOOFD CALLS #1, cCl PRESENT : ; 
7 0 01 19 CMPL «=6oRO. RR + 0797 ; 
6 if 1 BNEQ 7$ : : 
05 A2 4 88 001 BISB2 #4, INIT_OPTIONS+5 : ; 
F 11 4 9 BRB 9$ : : 
58 D1 00108 7$ CMPL RO, -RB + 0799 ; 
05 13 0010 BEQL BS : : 
59 0 pi 0011 CMPL = RO, - RO : ; 
04 12 oor co) Os«é9'S : : 
05 A2 04 BA 00115 8$: 1CB2. #4, _INIT_OPTIONS+5 + 0800 ; 
0084 C3 OF 00119 9$: PUSHAB EXTENSION DESC + 0805 ; 
6 gi FB 0 11D CALLS #1, CLISPRESENT ; : 
02 A2 01 01 0 FO 00120 INSV RO, #1, #1, INIT_OPTIONS+2 : ; 
21 50 £9 00126 LBC ~—-«aRO,.-«108 ; : 
55 DD 00129 PUSHL RS + 0808 ; 
0084 C3 9F 0012B PUSHAB EXTENSION_DESC ; : 
6A 02 FB 0012F CALLS #2, CLISGET_VALUE 3 
28 Ae OF 01 : PUSHAB EXTENSION + 0809 
04 =A pp 01 PUSHL  CLI_DESC+4 + 0810 
7E 65 3C 00138 MOVZWL CLIZDESC, -(SP) + 0809 
68 03 Fe 00138 ALLS #3, LIBSCVT_DTB : 
09 0 €8 0013E LBS RO. 10$ ; 
0075805C BF DD 99141 PUSHL #7700572 > 0813 
66 01 FB 00147 CALLS #1, LIBSSTOP : 
009c C3 9F 0014A 10$:  PUSHAB FILE DESC : 0818 
64 01 FB O014E CALLS #1, CL ISPRESENT : 
01 = A2 01 03 50 FO 00151 INSV , #3, #1, INIT_OPTIONS+1 F 
05 50 €9 00157 BLBC =_ RO.-«*18 F 
0000v CF 09 FB OO15A CALLS #0, FILE_PROT_ACT : 0820 
OOAC C3 9F OO15F 11$: | PUSHAB GROUP DES + 0824 
64 01 FB 0163 CALLS #1, CCISPRESENT : 
05 50 : 0166 LBC 0; 12$ ; 
62 08 8 00169 BISB2 Ht INIT_OPTIONS + 0826 
03 11 0016C RB 13$ ; 
62 08 Ba O16 128: BICB2 #8, INIT_OPTIONS : 0828 
00Bc C3 9F 00171 13$:  PUSHAB HEADERS BESC : 08 
64 o1 F 0173 CALLS #1, CLISPRESENT ; 
02 A2 01 0 0 F 17 INSV RO, # #1, INIT_OPTIONS+2 3 
21 50 €9 0017E LBC RO, 14$ ; 
33 DD 00181 PUSHL R : 0836 
00BC ¢ OF or 5 PUSHAB HEADERS DESC F 
6A FB 001 CALLS #2, CLISGET_VALUE ; 
1¢ Ad 9F OO18A PUSHAB HEADERS : 0837 
04 =A pp 18D PUSHL  CLI_DESC+4 > 0838 
7E C 001 MOVZWL ch I_DES¢ -(SP) : 0837 
68 Fe 1 CALLS #3, ti $tvT_DT1B F 
09 E 196 BLBS RO ; 
0075805c 8F DD 001 PUSHL #77005 i > 0841 
66 1 FB 0019F CALLS #1, LIBSSTOP ; 
00D0 C3 OF OO1A2 148:  PUSHAB HIGH_DESC > 0846 
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14- set 7 93:98:18 DISKSVMSMASTER:CINIT.SRCJINIPAR.B32; ‘s (5) 
1 FB O0IAG CALLS #1, CLISPRESENT , | 
Q D1 OO1A (MPL =O, R + 0848 | 
1 1AC BEQL 4 3=:«+1+5$ ; 
0 Di OO1A CMPL RO, RB : 
B Ak Boies 158:  Bite2 48° INIT_OPTIONS¢S : 0849 
9 11 0187 BRB 178 $ : 
0 D1 001B9 16$ CMPL RO RO + 0851 
4 Mg o1BC BNE § : 
: : 18 BISB2 #8, INIT_OPTIONS+5S ; 
F 001C2 17$ PUSHAB INDEX DESC + 0856 
1 Fe 1C6 CALLS #1, ECTSPRESENT : 
0 €9 001C¢ ¢ RO, 1 F 
9 FB OO1CC CALLS #0. INDEX_ACT + 0858 
9F 00101 18$ PUSHAB INTERCHG DESC + 0862 
1 FB 00105 CALLS #1, CLISPRESENT : 
0 D1 00108 CMPL RO + 0864 
6 Mg 010B BNEQ ©: 19$ ; 
2 88 0010D BISB2 #2, INIT_OPTIONS+5 : 
: 11 001E1 BRB 21$ ; 
D1 OO1E3 19$: CMPL _—RO, RB + 0866 
5 13 00166 BEQL ©_- 208 : 
0 pi 00168 CMPL RO, RO ; 
4 12 OO1€B BNEQ ; 
é BA OO1ED 08: BICB2 #2, INIT_OPTIONS+5S + 0867 
OF OO1F1 21$:  PUSHAB L + 0872 
1 FB OO1FS CALLS #1, CCISPRESENT F 
0 £9 001FB BLBC—_«aRO, : 
0 FB OO1FB CALLS #0, LABEL_QUAL_ACT > 0874 
9F 00200 22$:  PUSHAB MAXI c : 0878 
1 FB 00204 CALLS #1, CLISPRE : 
0 FO 00207 INSV RO, as ane SENT _OPTIONS+1 : 
0 €9 0020D BLBC = RO. 238 : 
5 DD 00210 PUSHL 5 + 0881 
3 OF 00312 PUSHAB MAXIMUM_DESC : 
FB 00216 CALLS #2, CLISGET_VALUE F 
OF 00 19 PUSHAB MAXIMUM > 088 
bp 0021C¢ PUSHL  CLI_DESC+4 > 088 
5 3C¢ OO021F MOVZWL CLI“DESC, -(SP) > 0882 
3 Fe 0 é ALLS #3, Iestvt DTB : 
0 €8 00 LBS $ 3 
F DD 00228 PUSHL #7700572 : 0886 
1 FB 0022€ CALLS #1, LIBSSTOP : 
3 OF : 1 23%:  PUSHAB OVERRIDE DESC > 0892 
} FB 5 CALLS #1, j PRESENT : 
0 £9 00238 BLBC —_ «RO, : 
9 FB B CALLS #0. ropes A > 0894 
9F 00240 24%:  PUSHAB OWNER DESC : 0898 
1 F 44 CALLS #1, ¢ ISPRESEN ; 
0 F 47 INSV R “i, NIT _OPTIONS+1 : 
FF 0058 PieLs : 286 UIC_ACT : 9900 
OF 25$ PUSHAB portlet DESC ; 0905 | 
. CALL : 
: F INSV RO. & ? stNIT _OPTIONS#+1 : 
E é BLBC ~—=._—«aRO; : 
0 FB 0026 CALLS #0. PROTECTION_ACT : 0907 | 


0164 


0178 


0188 


019¢ 


O1AC 


5 
oO 


ca 
o 


& 
oO 


01B8C 


01BC 


6 


9 
0075805C 


3be 93:98:19 ba ScsumBnas ten. 
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WWIOS & FP OOM NWVIMOM OWDOV1DOWOVU*- DOUIOMN OQUM1OMN 2 ONO MNON1OV MN OOMOOO0wu!'DO0OMo- 
ROMVPINIWIMNO O "HUI MDOS & TP OD"AO— WOOO “WOW $$ WOO "WE WOOD Fuons— & OO w 
OM WS OTOOM™ O00 9 — WO 9 OS" 9 TM OMM TOGO Com 7.0 TIM O08 Co CO 0 O MO 
SOOO 7990 OOD "OPN — S ON — ON) - © "DOO ™ > OOF "800 ™ SN Con Worn —-a~ 
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COOoCSOCOCOOOCOSCOCCOSOOCOCOSOSOSOS COSCO OSCOSOCOCOCOC COSCO OCOOCOOCOOOCOOOOOOOOOOOO 


2 
J 


20-74 
I SR 


#4, INIT_OPTIONS 
29§ 


RO, RO 

os 

#4, INIT_OPTIONS 
STRUCTURE _DESC 
#1, CLISPRESENT 
#0, STRUCTURE_ACT 
SYSTEM DESC 

#1, CLYSPRESENT 
#16, INIT_OPTIONS 
#16, INIT_OPTIONS 


U D 
#1, CLISPRESENT 
RO, +P #1, INIT_OPTIONS+3 


#0, USER_NAME_ACT 
VERIFIED -DESC 

i, CLISPRESENT 
RO. R 

34§ 

#64, INIT_OPTIONS 
36$ 

RO, RB 

35§ 


464, INIT_OPTIONS 
a4, INIT_OPTIONS+4 


RO, R9 
37§ 
Hos, INIT_OPTIONS 
#5, INIT_OPTIONS+4 
WINDOW_DESC 

#1, CLISPRESENT 

RO, # § #1, INIT_OPTIONS+2 


Pa 
JINIPAR.B32;1 


——— 
¥04=000 1$-}e0-1 964 93:98:19 —-PEScbiwSmafenscini?sacainspar.es2:1°%° (85 


66 01 FB 00835 146, GALLS. #1. LIBSSTOP ieee 


; Routine Size: 807 bytes, Routine Base: S$CODE$ + 0060 


F 10 
AR 16-Sep-1984 1 VAX-11 Bliss<-32 V4.0-742 
04-000 1ergee 7138s Phi GeTS WS imGhatenccinis one 
: 560 378 1 !¢ 
; 561 977 1! 
5 $¢ af8 1 ! Parameter and qualifier action routines. Each routine is named corresponding 
979 1! to its associated parameter of qualifier. Each routine does whatever 
; 564 980 1 ! conversion is necessary and stores the parameter or qualifier value in 
s 565 981 : } the appropriate location in the output area. 
3 §$ 3 : 1 !- 
BEY 
3 0 0386 1 ROUTINE BADBLOCKS_ACT (REQ_DESC, Ci!_CALLBACK) : NOVALUE = 
: ste b38 BEGIN 
3 ig 098 EXTERNAL 
; 574 0990 BADBLOCKS_STB : VECTOR £03. ! state table address 
: 37? 339) BADBLOCKS_KTB =: VECTOR (OJ; ! keyword table address 
: ig 099 EXTERNAL ROUTINE 
3 78 0994 LIBSTPARSE; 
; 579 0995 
; 580 0996 ! Parse the BADBLOCKS options string. 
: 581 0997 ! 
3 286 0998 
; 58 0999 WHILE CLISGET_VALUE ( BADBLOCKS_DESC, CLI_DESC ) DO 
; 584 1000 BEGIN 
: 585 1001 TPARSE _BLOCKCTPASL_STRINGCNT) = .CLI_DESC COSCS$W_LENGTH); 
; 586 1008 TPARSE_BLOCKCTPASL_STRINGPTR] = .CLI_DESC CDSCSA POINTER); 
; 44 +t or LIBSTPARSE TIPARSE_BLOCK, BADBLOCKS_ST8, BADBLOCKS_KTB) 
; 589 1005 3 ERR_EXIT CINITS_BADBLOCKS); 
; 590 1006 § END; 
; 591 1007 
3; Fe 1008 1 END; ! end of routine BADBLOCKS_ACT 
-EXTRN BADBLOCKS STB, BADBLOCKS_KTB 
-EXTRN LIBSTPARSE 
0004 00000 BADBLOCKS ACT: 
-@ORD Save R2 
52 0000° CF 9E 0006 MOVAB CLI DESC. Re 
52 DD 00007 1$: PUSHL R 
0000' CF OF ad PUSHAB BADBLOCKS_DESC 
00006 cr 3 Fe : * aoe SL ISGET VALUE 
10 Ag 62 ic 18 MOVZWL CLI_DESC, TPARSE BLOCK+8 
14 A 04 A 3 19 L CLI_DESC+4, TPARSE_BLOCK+12 
94443 CF OF 3 PUSHAB BADBLOCKS_KTB 
a CF OF PUSHAB BADBLOCKS STB 
0 A2 9F 3 PUSHAB TPARSE BLOC 
0000G CF fe CALLS #5, +18 TPARSE 
D6 E F & 
00758084 8F DD PUSHL #770061 
00000000G 00 1 e 7 CALLS #1, LIBSSTOP 
os 3 BRB 1$ 
04 00040 2$: RET 


P 
JINIPAR.B32;1° 9" 


; Routine Size: 65 bytes, Routine Base: SCODES + 0394 


¥O4-000 130-198 9h:98:19 Ba ScbimGmaSfenccini sone ainipar.e32:1°% « - 


INIPAR 
v04-000 


LEBER 


oO 
ooOma~ 


AAPAPAPAAAAAAOAAO 


TURIN — 2 2 2 2 ot 2 ot 


Be Se Oe Se Se Se es Ge Se Se Se Se Se Ss Se Ge Se Se Se Se Be Se Ge Se Ge FHS Se Se Se ee Ge Be Se Se Se ee 
COWNOUSWN“OCODNOUS WN 


AABAAAD 
Wrororonor 


et a a a > a — a ss a — st a a st tt i 


ROUTINE DATACHECK_ACT : 
BEGIN 


EXTERNAL 
DATACHECK_STB 
DATACHE CK-KTB 


EXTERNAL p's U3 
LIBSTPARSE; 


LOCAL 
VALUE _FOUND; 


Parse the DATACHECK options string. 


VALUE_FOUND = 0; 


weet e CLISGET_VALUE (DATA_DESC, CLI_DESC) DO 
TPARSE _BLOCKCTPASL_STRINGCNT] = .CLI_DE 
TPARSE_BLOCKCTPASL_STRINGPTR] = .CLI_DE 
IF NOT LIBSTPARSE TTPARSE_BLOCK, DATACH 


EN 
ERR_EXIT CINITS_BADDATCHK) ; 


VALUE_FOUND = 1; 
END; 


! If the qualifier /DATA_CHECK was s 
WRITE data check is the default. 


if NOT .VALUE_FOUND 


INIT_OPTIONS COPT_WRITECHECK] = 1; 


53 

00006 CF 
iS 

10 =A 
14 AS 


0000G CF 
0 


P 
JINIPAR.B32:1°%" (9 


' state table address 
! keyword table address 


' set when value present 


ecified with no value, then 
et the corresponding bit. 


! end of routine DATACHECK_ACT 


DATACHECK_STB, DATACHECK_KTB 
Q00C 00000 DATACHECK ACT: 
QORD 


CLE_DESC, TPARSE_BLOCK+8 
Cul DESC#4, TPARSE BLOCK+12 


DATACHECK STB 
TPARSE BLOCK 
#3, {6 TPARSE 
RO, 


MO PFPOOPOUOOMMND 
OWT MWONr Mwrom 
ee ee 
owmofrowunLr™” 

Sete Se Se Se Ge Se Ge Se Se Se Be Be Se 


; Routine Size: 78 bytes, Routine Base: $CODE$S + 0305 


IWIPAR, HEBeoctgte 44816 YN IT BLiREe RE VGA OMTE2, ea Page 24 


0075800C 8F DD i PUSHL #770049 : 1033 
000000006 99 eB , CALLS #1, LIBSSTOP ; 
1D 2s: MOVL #1, VALUE_FOUND + 1034 
c4 1 BRB 1$ + 1027 
05 2 Es bod 3$: BLBS -—« VALUE_ FOUND + 1040 
0000" CF 01 88 00048 BISB2 #1, INIT UOPTIONS#1 + 1042 
04 00040 4$: RET + 1045 


Wie 


; Routine Size: 60 bytes, Routine Base: 


: 653 


1067 1 


1eaSep-198e F2:98:19 — DLSKSUMSMASTERSCINiT, 


; 6 3 } 46 ROUTINE DENSITY_ACT : NOVALUE = 

: 6 4 ‘3 BEGIN 

: 6 105 EXTERNAL 

; 6 1051 DENSITY_STB : VECTOR RSE ! state table address 
; ? 1926 DENSITY_KTB : VECTOR : ! keyword table address 
: 640 1054 2 EXTERNAL ROUTINE 

3 641 1059 LIBSTPARSE: 

: ong 1987 ! Parse the DENSITY value and set appropriate flags. 

: bts 1988 5° 

: 646 1060 2 CLISGET_VALU ri ApENSITY DESC, CLI DESC ): 

; 64 1061 TPARSE_BLOCK STRINGCNT -CLI_bESC FSC$W_LENGTH; 

+ 648 106¢ TPARSE “BLOCK TPAgt STRINGETR -CLI~DESC COSCSA~POINTER); 

; 649 1063 IF NO T"LIBSTPARSE CTPARSE "BLOCK, “DENSITY_STB, DENSITY_KTB) 

: 651 1065 ERR_EXIT (INITS_BADDENS); 

; 652 1066 1 ; 


eEXTRN DENSITY_STB, DENSITY_KTB 
0004 00000 DENSITY_ACT: 
WORD 


‘ Save R2 
52 0000" CF 9E 0000 MOVAB ch DESC, R2 
52 DD 0000 PUSHL 
0000' CF 9F 00009 PUSHAB DEN SITY_DESC 
00006 CF 62 FB 0000D ALLS #2, CLISGET VALUE 
10 A2 62 3C 00012 MOVZ2WL CLI_DESC, TPARSE BLOCK+ 
14 Ad 04 A2 dO 00016 VL CLITDESC44 TPARSES ~BLOCK+12 
00006 CF 9F 0001B PUSHAB DENSITY_KTB 
00006 CF 9F OOOIF PUSHAB DENSITY~STB 
08 Ag 9F 00023 PUSHAB TPARSE_BLOCK 
00006 CF 9 FB 0026 CALLS #3, | IBSTPARSE 
D 0 €£ 90 B LBS RO $ 
00758014 af DD OO00ZE PUSHL #7700500 
000000006 00 1 FB 00034 CALLS #1, LIBSSTOP 
04 00038 1$: RET 


SCODES + 0423 


an 


K 10 
Wesep19be 82:88:19 DISkSuMSMAS TERS CL 


1 ROUTINE FILE_PROT_ACT (REQ_DESC, CLI_CALLBACK) : NOVALUE = 


EXTERNAL 

§ PROTECTION_STB : VECTOR fo). ! state table address 

? PROTECTION_KTB : VECTOR ; |! keyword table address 
5 


| 
| 
EXTERNAL ROUTINE 


p 6 
JINIPAR.B32:1°"" (95 


0-7 
T.$ 


4.0-742 
NIT.SRC 


22 
Ss 


REESE 


LIBSTPARSE; 


6 8 ! Parse the switch value string (storing the binary protection). 
8 4 Complement thereafter, since the parser produces the complement. 


ao 
ae 


eg 


ts hs 4 2 2 4 2 Ls bb 9 2 as ts a 8 tt ts 


8 081 
669 O8¢ PROT_VAL = 0; 
670 08 
671 O84 WHILE CLISGET_VALUE ( FILE_DESC, CLI_DESC ) DO 
67 086 TPARSE_BLOCKCTPASL_STRINGCNT] = .CLI_DESC osC$u_LENGTH) 
674 08 TPARSE-BLOCKCTPASL-STRINGPTR) = .CLI-DESC CDSCSA-POINTER) 
675 O88 IF NOT LIBSTPARSE CTPARSE_BLOCK, PROTECTION STB, PROTECT ION_KTB) 
677 090 ERR_EXIT (INIT$_BADPRO); 
678 091 2 END; 
679 09¢ 
680 09 FILE_PROT = NOT .PROT_VAL; 
681 094 
682 095 1 END; ! end of routine FILE_PROT_ACT 


-EXTRN PROTECTION_STB, PROTECTION_KTB 
0004 00000 FILE_PROT ACT: 
.@ORD 


Save R2 : 1068 
52 0000" CF 9E 0000 MOVAB PROT_VAL, R2 : 
8g D4 0000 CLRL PROT _VAL : 1082 
D4 A2 9F 00009 1$ USHAB CLI_BESC > 1084 
0000" CF 9F 0000 PUSHAB FILE DESC : 
00006 CF 02 FB 0001 CALLS , CLISGET_VALUE : 
2c 59 001 LBC 2$ ; 
E4 Ag D4 ag C 00018 MOVZWL CLI_DESC, TPARSE_BLOCK+8 + 1086 
8 A D8 A2 dO 0001 OVL  CLI-DESC44, TPARSE_BLOCK+12 : 1087 
90006 CF Hi PUSHAB PROTECTION.KTB : 1088 
0G CF OF PUSHAB PROTECTION STB : 
DC A2 OF A PUSHAB TPARSE BLOCK : 
00006 CF FB 0 CALLS #3, | JBSTPARSE : 
4 E LBS b 7 ; 
0075801C BF DD 9 PUSHL #7700508 + 1090 
000000006 00 1 Fe CALLS #1, LIBSSTOP : 
C3 1 ° 4 BRB > 1084 
0000" CF 6 b2 44 2%: MCOML PROT_VAL, FILE_PROT > 109 
4 00049 RET : 109 


3; Routine Size: 74 bytes, Routine Base: $CODES + 045F 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


18-Sep-1984 01:48:16 VAKeHT BLses=82 v4.0 


1 ROUTINE INDEX.ACT (REQ_DESC, CLI_CALLBACK) : NOVALUE = 


EXTERNAL 
INDEX_STB : VECTOR tte ' state table address 
INDEX_KTB : VECTOR 3 ! keyword table address 
EXTERNAL ROUTINE 
LIBSTPARSE; 
Parse the INDEX options string. 
CLISGET VALUE ( INDEX_DESC, CLI_DESC ); 
TPARSE_BLOCKCTPASL_STRINGCNT) = ~CLI_DESC Ebr tydtet 
TPARSE_ BLOCK TPASL_STRINGPTR] = .CLI-DESC CDSCSA POINTER): 
IF NOT LIBSTPARSE TIPARSE BLOCK, INDEX_STB, INDEX_KTB) 
THEN ERR_EXIT (INITS_BADINDEX); 
END; ! end of routine INDEX_ACT 
.EXTRN INDEX_STB, INDEX_KTB 
0004 00000 INDEX_ACT: 
~ WORD Save R2 
52 0000" CF 9€E 0000 MOVAB CLI DESC, R2 
52 0D 0000 PUSHL R 
0000° CF 9F 484 PUSHAB INDEX_DESC 
0000G CF 02 FB te CALLS #2, CCISGET_VALUE 
10 A 62 3¢ 9001 MOVZWL CLI_DESC, TPARSE B LOCK+8 
14 A gs A +4 0016 MOVL CLI_DESC+4, TPARSES Bock +12 
Q0000G CF F 00018 PUSHAB INDEX_KTB 
ooyre CF OF OOOTF PUSHAB INDEX STB 
8 A2 OF 83 3 PUSHAB TPARSE_BLOCK 
0000G CF Qg 4 8 6 CALLS #3, LIBSTPARSE 
D E 028 LBS Rg $ 
0075808C 8F DD OO00E PUSHL #7700620 
000000006 00 01 FB 00034 CALLS #1, LIBSSTOP 
04 00038 1$: T 


60 bytes, Routine Base: S$CODES + 04A9 


; Routine Size: 


vw 
> 
z 


SELS5 8 


SNS 
a kd ad 


es et oe 8 ot 83 a 8 SY SY 
SWI onononononononononn ] 2 
OODNA UE WN $$ O OO NOU SW OOOO 


bk et ee el ee ee ee 


DOONAN WN "OO ONOULS WN Oo 


PoRONONoRONONONONOn) @ 3 


Hesbetage GI:4B1 Yee, 


1 pout LABEL_QUAL_ACT (REQ_DESC, CLI_CALLBACK) : NOVALUE = 


EXTERNA 
LABEL -QUAL_STB : VECTOR £8). ' state table address 
LABEL-QUAL-KTB : VECTOR ; ! keyword table address 
EXTERNAL ROUTINE 
LIBSTPARSE; 
DATA_INDEX = 0; ! set index to zero. 


Parse the LABEL options string. 


ite CLISGET_VALUE ( LABEL_DESC, CLI_DESC ) DO 


TPARSE -BLOCKCETPASL_STRINGCNT ~-CLI_DESC COSC$W_LENGTH); 
TPARSE BLOCKCTPASL_STRINGPTR = {cll “DESC LDSCS$A POINTER); 
_51TB, LABEL_QUAL_KTB) 


IF WoT” LIBSTPARSE TIPARSE "BLOCK, LABEL _QUAL 


ERR_EXIT (CINITS_BADLABELQ); 
END; 


1 END; ! end of routine LABEL_QUAL_ACT 


RCJINIPAR, B32; 39 


.EXTRN LABEL_QUAL_STB, LABEL_QUAL_KTB 


0004 00000 veel” ~ th 


RD Save R2 
52 0000: CF 96 00002 VAB CLI_DESC, R2 
0000" cr p4 0 ‘a cURL DATR_INDEX 
oo00' cf OF Op PUSHAB LABEL DESC 
00006 cf FB 11 CALLS #2, go GET_VALUE 
5 016 LBC OR 
10 A 62 3¢ 00019 MOV2WL CLI_DES 
4 =A 06 A pd 9010 OVL CLI7DES 
9006 CF 9F 000 : PUSHAB LABEL_QUAL_ 
0006 CF i 0 PUSHAB LABEL-QUAL-STB 
08 A2 9F A PUSHAB TPARSE BLOCK 
00006 CF FB CALLS #3, BSTPARSE 
6 £ BLES =e 
00758054 8F DD 9 PUSHL #7700564 
000000006 00 01 r8 0008 CALLS . LIBSSTOP 
04 bo46 2s: RET 


69 bytes, Routine Base: S$CODES + 04E5 


C, TPARSE BLOCK+8 
C44, oe UDANSE. BLOCK+12 


N 10 
INIPAR 16-Sep-1984 01:48:1 VAX-11 Bliss-32 v4. 
v04-000 19-808 - 1382 93:98:18 DISKSVMSMASTER:CINIT. 
; 731 1141 1 ROUTINE OVERRIDE_ACT : NOVALUE = 
; i j 1148 BEGIN 
: 734 114 EXTERNAL 
3 £39 1145 OVERRIDE_STB : VECTOR £8). ! state table address 
3 103 OVERRIDE_KTB : VECTOR ; |! keyword table address 
fe, 8 1148 EXTERNAL ROUTINE 
: 139 1149 LIBSTPARSE; 
: ot) i Parse the OVERRIDE string and set appropriate flags. 
: 74 11 : 
; a4 i 4 WHILE CLISGET_VALUE ( OVERRIDE_DESC, CLI_DESC ) DO 
: 746 1186 TPARSE _BLOCKCTPASL_STRINGCNT) = .CLI_DESC COSC$W_LENGTH); 
> 7247 115 TPARSE BLOCKLTPASL STRINGPTR] = .CLI~DESC COSCSA~POINTER); 
; 748 1158 F NOT LIBSTPARSE TTPARSE_BLOCK, OVERRIDE_STB, OVERRIDE_kTB) 
: 750 1160 ERR_EXIT (INIT$_BADOVR); 
: 731 1161 END; 
: F3 1183 END; ! end of routine OVERRIDE_ACT 


.EXTRN OVERRIDE_STB, OVERRIDE_KTB 
0004 00000 OVERRIDE_ACT: 


“WORD Save R2 
52 0000' CF 9€ 90002 MOVAB CL1_DESC, R2 
52 DD 00007 1$: PUSHL R 
0000" CF 9F 00009 PUSHAB OVERRIDE_DESC 
00006 CF 02 FB 60000 CALLS #2, CL ISGET_VALUE 
2B 5 £9 0012 LBC =—séRO, 2 
10 Ag 62 3¢ 0001 MOV2WL CLI_DESC, TPARSE_BLOCK+8 
“ A 04 A2 00 90019 OVL  CLI“DESC#4, TPARSE_BLOCK+12 
90006 CF OF OO1g PUSHAB OVERRIDE_KfB 
000G CF 9F 000 PUSHAB OVERRIDE~STB 
08 Ae 9F 000 é PUSHAB TPARSE BCOCK 
00006 CF 9 FB 00 CALLS #3, L IBSTPARSE 
0 £8 000 c LBS RO 
007580cc BF DD 000 PUSHL #7700684 
000000006 00 01 FB 00 7 CALLS #1, LIBS$STOP 
(7 1 E BRB 1$ 
04 00046 28: RET 


; Routine Size: 65 bytes, Routine Base: S$CODE$ + 052A 


Pp 
JINIPAR.B32: 109" (13 


9 
) 


Vv 


; Routine Size: 


INIPAR 
-000 


11 
18- Sep-1984 VAX-11 Bliss-32 V4.0- 
17-868: 38 93; 48: 18 DISKSVMSMASTER:CINIT. 
1164 1 ROUTINE OWNER_UIC_ACT : NOVALUE = 
1382 BEGIN 
1183 EXTERNAL 
1198 UIC_STB : VECTOR £82. ! state table address 
1193 UIC_KTB : VECTOR : ! keyword table address 
1171 EXTERNAL ROUTINE 
1126 LIBSTPARSE; 
1128 Parse the UIC string and store it in the owner UIC Longword. 
117 
N77 of 14 CLISGET_VALUE ( OWNER_DESC, CLI_DESC ) DO 
1179 TPARSE_BLOCKCTPASL_STRINGCNT) = Sh T a ttt DSC$W_LENGTH); 
1180 TRARSE “BLOCKLTPASL_STRINGPTR] = .CLI-DESC CDSC$A_PO INTER); 
113) if ag “LIBSTPARSE TIPARSE_BLOCK, UIC_STB, UIC_KTB) 
1183 ERR_EXIT (CINIT$_BADUIC); 
1184 § END; 
1185 
1186 1 END; ! end of routine OWNER_UIC_ACT 


eEXTRN UIC_STB, UIC_KTB 
0004 00000 ED SEK BST 


RD Save R2 
52 0000" CF 9€ 00002 MOVAB CLI_DESC, R2 
52 DD 90007 1$: PUSHL Re 
0000' CF 9F 00009 PUSHAB OWNER DESC 
0000G CF ge FB 000D CALLS #2, CCISGET_VALUE 
2B § 0012 LBC ~—s&aRO, 28 
10 A2 62 3¢ 0001 MOVZ2WL CLI_DESC, TPARSE_BLOCK+8 
14 Ae 04 A2 dO 00019 OVL CLIZDESC44, TPARSE_BLOCK+12 
0000G CF 9F OO01E PUSHAB UIC"KTB 
00006 CF 9F 000 PUSHAB UIC~STB 
08 Ae 9F 00026 PUSHAB TPARSE BLOCK 
0000G CF 9 FB 0029 CALLS #3, [BS TPARSE 
D6 0 £8 0002E LBS RO 1 
00758024 8F DD 00031 PUSHL #7700516 
000000006 00 01 FB 09 7 CALLS #1, LIB$STOP 
4 E BRB 1$ 
04 00040 2$ RET 


65 bytes, Routine Base: S$CODE$ + 0568 


742 
SRC 


Se] 


0 
JINIPAR.B32:1° 9 (135 


—_ «aA 
a 
Nn Oo 
Nn OS 


INIPAR 15-56 “Sep-1984 :16  VAK=11._ BLiss-32_v4.0-742 
v04-000 200-1 8Be F55B 1S Peed ObASF ERs Cini, SReIINIPAR.B32; 


5 f 3 i} 7 } ROUTINE PROTECTION_ACT : NOVALUE = 
; 781 11 $ BEGIN 
3 ¢ 1190 
TB 1191 EXTERNAL 
Bae 1136 OTECTION_STB =: VECTOR ate ! state table address 
: re? 1337 PROTECTION N-KTB : VECTOR (OJ; ! keyword table address 
3; 787 1195 EXTERNAL ROUTINE 
3 res 1138 LIBSTPARSE; 
; Tx 18 ! Parse the PROTECTION qualifier string storing the binary protection. 
: od 1380 Complement thereafter, since the parser produces the complement. 
; 79 1201 
3; 794 1 Oe PROT_VAL = 0; 
; 795 120 
:; 796 1204 WHILE CLISGET_VALUE ( PROTECTION_DESC, CLI_DESC ) DO 
; 797 1205 BEGIN 
; 798 1206 TPARSE_BLOCKCTPASL =STRINGCHT 2 = .CLI_DESC COSCS$W_ LENGTH: 
; 799 1207 TPARSE_BLOCKCTPASL_STRINGPTR) = .CLI-DESC CDSCS$A_POINTER 
3 eo : oS IF wor” LIBSTPARSE TTPARSE “BLOCK, “PROTECTION. STB, ~PROTEE TION. KTB) 
; 80 1210 ERR_EXIT (CINITS_BADPRO); 
; 80 1211 END; 
; 804 \si¢ 
3; 805 11 PROTECTION = NOT .PROT_VAL; 
: 806 1214 
; 807 1215 1 END; 
0004 00000 PROTECTION_ACT: 
. WORD Save R2 
52 0000" CF 9€ 0000 MOVAB PROT_VAL, R2 
6g D4 0000 LRL PROT_VAL 
D4 A2 YF 00009 1$: PUSHAB CLI_BESC 
0000" CF 9F Q000C PUSHAB PROTECTION ao 
0000G CF 02 FB Bete CALLS ‘ CLISGET_VA LUE 
2c 5 G? 001 LBC 2 
E4 Ad D4 A2 3C 00018 MOVZWL CLI_DESC, TPARSE_BLOCK+8 
EB Ae +3 A po p08 OVL CLI-DESC+4, TPARSE -BLOCK+12 
0000G CF F 0 PUSHAB PROTECTION_KTB 
0000G CF 9F 00026 PUSHAB PROTECTION STB 
oc Ag 9F QO02A PUSHAB TPARSE_ BLOCK 
0000G CF fe CALLS #3, L IBSTPARSE 
D4 0 € LBS % 
0075801c 8F DD 0 PUSHL #7700508 
00000000G 00 1 FB CALLS #1, LIBSSTOP 
C5 11 0004 BRB 
0000" CF 62 D2 00044 2$ MCOML PROT_VAL, PROTECTION 
04 00049 RET 


; Routine Size: 74 bytes, Routine Base: $CODE$ + O5AC 


igcbeortgee 1:48:16 ya 


-11 Bliss-32 
KSVMSMASTER: 


cINI?  SReJINIPAR.B32: 109° (125 


~~ YF 


; Routine Size: 60 bytes, Routine Base: S$CODE$S + 05F6 


S$ep-1984 71 VAX-11 Bliss<-32 V4.0-742 3| 1 
16-5 ~300n 138% 93: 48: 1§ DISKSVMSMASTER:CINIT.SRCJINIPAR.B32; g 9485 vO 

; 809 1 1 1! : 

: 19 ! } ! Specify disk structure level > 

; \¢ 1 8 1 ROUTINE STRUCTURE_ACT (REQ_DESC, CLI_CALLBACK) : NOVALUE = | : 

Pits sie so | 

> 815 1 é EXTERNA : 

3 1 1 + TRUCTURE 518 : VECTOR 82. ' state table address | : 

: i : ¢ STRUCTURE_KTB : VECTOR LO); ! keyword table address : 

: B19 1226 2 EXTERNAL ROUTINE ; 

; 9 i 4 LIBSTPARSE; ; 

; 8 : 3 Parse the STRUCTURE string (setting the level 1 bit if so). : 

: B26 1231 : 

; 825 1 5 CLISGET VALUE ( STRUCTURE_DESC, CLI_DESC ); : 

; 826 1 TPARSE_BLOCK TPASL STRINGENT) = .CLT_DESC foscsw_ LENGTH); : 

>; 827 1234 2 TPARSE-BLOCKCTPASL-STRINGPTR] = .CLI-DESC CDSCSA-POINTER); F 

3 ase 1$3? IF NOT “LIBSTPARSE TIPARSE_BLOCK, STROCTURE_STB, STRUCTURE_KTB) : 

: B80 1237 ERR_EXIT (INIT$_BADSTRUCT); : 

: 832 1539 END: ! end of routine STRUCTURE_ACT ; 

.EXTRN STRUCTURE_STB, STRUCTURE_KTB ; 

0004 00000 STRUCTURE_ACT: : 

-@ORD Save R2 : 1219 ; 

52 0000' cF 9€ 00002 MOVAB CLI DESC, R2 : : 

52 DD 00007 PUSHL R : 1232 3 

0000" CF 9F 00009 PUSHAB STRUCTURE DESC : : 

00006 CF 02 FB 0000D CALLS #2, CLISGET VALUE : : 

10 A2 62 3C 00012 MOVZWL CLI_DESC, TPARSE BLOCK+8 : 1233 ; 

14 A2 04 A2 00 BO9i8 MOVL CLI~DESC44, TPARSE _BLOCK+12 3 1234 ; 

00006 CF 9F 0001B PUSHAB STROCTURE_KTB : 1235 : 

00006 CF 9F OOO1F PUSHAB STRUCTURE STB : : 

08 Ae OF 90023 PUSHAB LOCK : : 

00006 CF 0 FB 00026 CALLS He Re RST PARSE : ; 

OD 50 €8 00028 BLBS RO ; ; 

007580E4 BF DD 0002E PUSHL 700708 : 1237 : 

000000006 00 01 FB 000 CALLS #1, LIBS$STOP : : 

04 00038 1$: RET : 1239 ; 


F 11 


IKIPAR Se 4 1 VAX=11 Bliss-32 v4.0-742 34 
04-000 eet Ta Poe Set ee HS Ot ote tt et See a 
; 1240 1! 
; 5 ! 4 ! Get volume user name 
; 1 rk 1 ROUTINE USER_NAME_ACT (REQ_DESC, CLI_CALLBACK) : NOVALUE = 
; a4 BEGIN 
; 40 i 4g ! Store the descriptor for the volume USER_NAME. 
> 84 1048 2 
; rk 1 49 CHSFILL (0, DSCSC_S BLN. USER_NAME ); 
> B44 1 USER_NAMECDSC$B8_CLASS) = DSCSK~CLASS at 
; $2 ! 1 CLISGET_VALUE (“USER_DESC, USER_NAME 
; ; 1588 ¥ Ep; ! end of routine USER_NAME_ACT 
Save R2,R3,R4,R : 1263 
08 00 BE ago: 09 2 90008 moves BON (SBS oO.’ mB, USER _NAME 1328 
0000" CF 65 90 S00A MOVB #2, USER_NAME+3 + 1250 
0000" CF 9F OO00F PUSHAB USER_NAME + 1251 
0000" CF 9F 00013 PUSHAB USER DESC : 
00006 CF 62 FB 00017 CALLS #2, CLISGET_VALUE ; 
04 0001C RET > 1253 


003C 00000 USER_NAME ACT: 
.QORD 
; Routine Size: 29 bytes, Routine Base: $CODE$ + 0632 
| 


Soe Oe 8S He ee HS HS HS HS OS HS OS FS FS OS HS 8S OS FS FS OR ES FSFE SCS FSFE CE FTE ES FESS SSE SESS FSCS SSE *S HSS HSS *S SSCS SSE HE*S*S CE SESE SS 
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! end of routine GET_INDEX_LBN 
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4 DOK UM TNO OO 
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0000 00000 OEt AER Lee 


«WORD 
MOVL 
MOVL 
RET 


0000° 


Routine Base: S$CODES + 064F 


12 bytes, 


4 
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wv 
Cc 
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1 | | 


INIPAR 


v04-000 


H 
esep-198e 42:95:17 — DISKSUMSMAS TERS CINIT.SRCIINIPAR.B32; 1°" (189 


; 1266 1! 

5 68 : ef } Store bad block LBN or sector number. 

; 865 1 $3 1 ROUTINE GET_BAD_LBN = 

3 £08 1270 BEGI 

; 86 1271 

3 508 : if TPARSE_ARGS (CONTEXT); 

3 4 0 1274 IF .BADBLOCK ein gp AR ~. TABLE_LEN 

; 871 1275 THEN ERR EXIT CINIT AB); 

; 87 127 BADBLOCK_TABLE 'BADBLOCK. COUNT, BAD_LBN) = .CONTEXTCTPASL_NUMBER); 
: 87 127 BADBLOCK_ TABLE - BADBLOCK~ COUN NT, BAD COUNT) = 1; 

; 874 1278 BADBLOCK-COUNT = .BADBLOCK_COUNT + T; 

; 875 1279 RETURN 13 

; 876 1280 

3; 877 1281 1 END; ! end of routine GET_BAD_LBN 


0004 00000 GET_BAD_LBN: 


<WORD Save R2 : 1269 
52 0000" CF 9E 00002 MOVAB BADBLOCK. COUNT, R2 : 
00000064 &F 62 01 90007 CMPL  BADBLOCK~COUNT, #100 + 1274 
0D 19 O00E BLSS ; 
007580BC 8F DD 0001 PUSHL #770066 + 1275 
000000006 00 01 FB 00016 CALLS #1, LIB$STOP ; 
50 68 D0 001D 1$: MOVL  BADBLOCK_COUNT, RO : 1276 
04 A240 7F 00020 PUSHAQ BADBLOCK TABLECROJ : 
9E <« « D0 0024 MOVL B(CONTERT), a(SP)+ : 
08 A240 7F 00028 PUSHAQ BADBLOCK TABLE+4C ROJ + 1277 
9E 01 BO 000eC MOVW oT SeSpys : 
62 D6 0002F INCL  BADBLOCK_COUNT : 1278 
50 01 DO 00031 MOVL #1, RO : 1279 
04 00034 RET + 1281 


; Routine Size: 53 bytes, Routine Base: S$CODE$S + 0658 
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04-000 DISKSVMSMASTER: CINIT.SRCJINIPAR.B32; 429 
; 879 1 ; 1! | 
; e} ! ? ! Store bad block track number. 
: ¢ 1285 1 ROUTINE GET_BAD_TRACK = | 
; 83 $ BEGIN | 
: B85 8 TPARSE_ARGS (CONTEXT); | 
: Hy 1290 @ BADBLOCK_TABLEL.BADBLOCK_COUNT-1, BAD_TRACK] = .CONTEXTCTPASL_NUMBER); | 
; 888 1291 BADBLOCK STABLEC .BADBLOCK-COUNT=1, BAD-STC_FORM] = 1; 
se ae en) 

: fos 1294 7 END; ! end of routine GET_BAD_TRACK 


0000 00000 GET_BAD_TRACK: 
WORD 


Save oF COUNT, ; 1285 
50 0000' CF 00 00 HOVL _-BADBLOCK. COUNT, RO + 1290 
0000'CF40 7F 0000 PUSHAQ BADBLOCK. raat eE ‘7fRO) : 
9E if AC 90 0000 MOVB B(CONTERT), a(SP)+ F 
0000'CF40 7F 0001 PUSHAQ BADBLOCK stabu-36h03 + 1291 
9€ 1 88 0001 BISB2 #1, a(SPY ; 
50 1 00 90018 MOVL #1, + 1292 
04 0001B RET + 1294 


; Routine Size: 28 bytes, Routine Base: S$CODE$ + 0690 


WEReer19RE Q4S8:19  YeteLTABLSSH282 44: 0°202s span. osc: 48% call 


— 
Sz 
wv 
> 
= 


RERSSSSTESES S 


' 

Store bad block cylinder number. 
ROUTINE GET_BAD_CYL = 
BEGIN 


POPOL CCE TABLEL BASBLOCK COUNT=1, BAD_CYLINDER] = .CONTEXTCTPASL_NUMBER]; 


1 
1 
1 
1 
9 
TPARSE_ARGS (CONTEXT); 


ot a a 
OO 
— 


END; ! end of routine GET_BAD_CYL 


WORD Save goths ing : 1998 
50 0000' CF p0 0000 MOVL BADBLO ; 150 
0000'CF40 7F 0000 vo ADBLOEK™ eaaLe £6t R03 3 
3 1¢ aC BO 0000 MOVW S(CONTERT), a(SP)+ : 
5 01 00 0001 MOVL #1. RO : 1304 
04 0001 RET 3: 1306 


0000 00000 GET_BAD_CYL: 45 
; Routine Size: 20 bytes, Routine Base: S$CODES + O6AC 
| 


it seo 19h 2:98:19 DISkSUmSmaStenscinit.sacaintpar.e32:1°%" cats 


' 

Store bad block count. 
ROUTINE GET_BAD_COUNT = 
BEGIN 


os32es 


TPARSE_ARGS (CONTEXT); 


BADBLOCK K ETABLEL BADBLOCK ONT =1, BAD_COUNT] = .CONTEXTCTPASL_NUMBERJ; 
IF .CONTEXTCTPASL L NUABER LO 

THEN ERR_EXIT (INIT "BADBLOCKS) ; 

RETURN 1: 


Se Se Ge Se ee Oe Ge Se Gee Ge Ge Seas ae 
Pz 

vw 

> 

@D 


Ot kt dt 
M2 tt 1 OOO 


OCONO UNE Ww OOO~ 


—onononononononon a 


oooodovnovoo 
od 


DONO wr 


END; ! end of routine GET_BAD_COUNT 


0000 00000 GET_BAD_COUNT: 
WORD 


. Save nothin ; 1310 
50 0000" CF BO 80008 MOVL BADBLOCK COUNT, 3 1315 
0000'CF40 7F 0000 PUSHAQ BADBLOCK FABLE <4EROI 3 
9E 1¢ AC BO 0000C MOVW 28( CONTE aT? d a(SP)+ : 
1¢ AC 05 00010 TSTL 28( CONTE 3 1316 
0D 12 00013 BNEQ 1$ F 
00758084 8F DD 00015 PUSHL #7700612 3 1317 
00000000G 00 01 FB 00018 CALLS #1, LIB$STOP 3 
50 01 »00 pose 1$: MOVL #1, RO ; 1318 
04 000 RET ; 1320 


; Routine Size: 38 bytes, Routine Base: $CODE$S + 06C0 


Ss 


PAROS Doe Onur 


WOOOOOOOOOOOOOODOOO 


Ww 
~ 
i i kk a a td od od 


FAWANAWWwnonofnonoronononeny 


SOOONAUE WN 0 COONS wn 


0 
OOo 
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1$- -Sep-1 VAX-11 Blis 
14-Sep 5-19 7 93; 48: i$ DISKSVMSMAS 
! 

Determine if ANSI VOL1 accessibility character is an ANSI ‘a’ character 
ROUTINE GET_VOL_ACC = 


1 
1 
1 
1 
EGIN 
TPARSE_ARGS (CONTEXT); 
1 


a 
me 
2 
4 
as 
=: 


L_.ACC = .(. CONTEXTCTPASL TOKENPTRI); 
oon ia -VOL_ACC O 


A, 10 U4, 
1! TO #98 
hy 16 i  e vo. ACC = .VOL_ACC = ( ‘a’ = ‘A’ ); | uppercase 
OTHERWISE] : ERRTEXIT CINITS -BADVOLACC); 


RETURN 4; 
END; 
0004 00000 GET_VOL_ACC: 
«WORD Save R2 
5 0000" CF 9 0000 MOVAB VOL ACC R2 
6 14 BC 90 0000 MOVB a@20TCONTEXT), VOL_ACC 
5 62 9a 00008 MOVZBL VOL_ACC, RO 
41 BF 50 91 0000 CMPB sO, #6 
06 1F 0001 BLSSU _1$ 
SA OSE 50 91 00014 MPB = RO, «#90 
38 18 00018 BLEQU 5$ 
20 50 91 OOO1A 18: MPB  =sRO, «#32 
05 1F 0001D BLSSU  2$ 
22 50 91 O001F CMPB = =sRO, #34 
A 1B 00022 BLEQU 5$ 
25 91 00024 2$: CMPB sRO,-#37 
09 1F 00 7 BLSSU -3$ 
3F 0 91 0 9 CMPB seRO, #63 
e4 1B 0002C BLEQU 5$ 
SFOS 0 91 OO0ZE 38 CMPB =sRO, #95 
1 43 0 BEQL «=s«OS$ 
61 BF 50 9 CMPB Rd. #97 
g 1F 0 BLSSU 4 
7A BF 91 A CMPB seRO, «#122 
1A 000 BOTRY 4$ 
62 0 82 04 SUBB2 #32, VOL_ACC 
D 4 BRB 5$ 
007580F4 8F DD 00045 4$ PUSHL #7700724 
000000006 90 1 FB 4 CALLS #1, LIBSSTOP 
1 p 005 5$ MOVL #1, RO 
4 RET 


86 bytes, Routine Base: S$CODE$ + 06E6 


; Routine Size: 


1$rBeocIRRE L481 YNCITALLREERZ VGiOMTH2 oye gs fame ott] | U 


N11 
INIPAR 16-Sep-19 :1 VAX-11 Bliss-32 V4.0-742 IN 
12060 Raton ee Pate S Ne ee eae VAIS SAC TINIPAR.B32510"* (245 ve 


; 94 1341 1! 

3 3u8 } i} } Determine if ANSI] VOL1 OWNER IDENTIFIER is ANSI ‘‘a’’ characters 

: 945 1344 1 ROUTINE FORMAT_VOL_OWNER = 

; 946 4s BEGIN 

: 948 1 t3 LOCAL 

> 949 1 48 TEMP : BYTE 

; 950 134 . 

oo iy ki 

: 938 ; TPARSE_ARGS (CONTEXT); 

: 955 1354 2 CHSFILL (' ',14,VOL_OWNER); 

2 eee ete 

; 958 1 35 TEMP = .(.CONTEXTCTPASL_TOKENPTR)); 

3 o28 ! 28 IF al EQ. *,") 

: 961 1360 BEGIN 

; 966 1361 CHSMOVE (. sGONTEXTCTPASL TOKENCNT], .CONTEXTCTPASL_TOKENPTRI, 

> 96 1 6¢ DATA_PTRL.DATA ); 

3 +¢) : ry os DATA_INDEX = .DATA_ INDEX + ,CONTEXTCTPASL_TOKENCNTJ; 

; 966 65 WHILE 31 LEQ (.DATA_INDEX = 1) DO 

: 968 1369 LOCAL CHAR : BYTE: 

: 969 1368 CHAR = .DATA_PTR 12; 

; 970 1369 SELECTONE .CRAR O 

: 971 1370 SET 

BO AB Sk 

ee: a 

: 976 1375 ‘a' i *g*3 8 - ( tat = ‘A* ); ! uppercase 

3 ort 1377 OTHERWISE] : ERR. exit’ ONITS _BADOWNID); 

: 978 1378 4 IF (CHAR 9 EOL "") AND (.1 EQL (.DATALINDEX = 1)) 

> 981 1380 4 IF NOT ((, (uan EOL ''"") AND (.1 EQL 0)) 

. on oe 

: 984 1388 4 VOL L OWNER. .J) = .CHAR; 

; 386 1385 5 IF “NOT (. CHAR EOL *** AND .DATALPTRC.1¢1] EQL **"") 

; 98 1 $ 4 THEN I's 1 +1 

ORs) 8S er 

: 990 1 3 ELSE 1 = .1 + 1; 

: 393 139 END 

: 99 139¢ ¢ RETURN 1; | 

+ 994 139 ; 
| 
} 
| 


12 
INIPAR 1b-5¢ =1984 01:48:16 VAX-11 BLiss-32_v4.0-742 p 3 
v04-000 Wea eeen aes Oo ae SN ee eee VAS SRE IINIPAR.03251 09" (243 


O1FC 00000 FORMAT. VOL OWNER: 


.WORD Save R2,R3,R4,R5,R6,R7,RB 1 1344 
58 0000' cr E 9002 HOVAB DATA_INDEX : 
OE 20 6E es 09 C x movcS #0, TSP), #32, #14, VOL_OWNER + 1354 
56 4° ; cLRa : 135 
50 14 : 9 1 MOVB  @20(CONTEXT), TEMP + 135 
2¢ ; 4 14 CPB TEMP, #44 : 1358 
50 EO As 3 Ee MOV DATA_PTR, RO + 1362 
00 8840 14 8B 1 AC 38 p MOVC JOCCONTERT?« @20(CONTEXT), @DATA_INDEXCRO] ; 
6 10 ac C¢ ADDL2 16(CONTEXT), DATA_INDEX + 1363 
50 6 gi €3 00029 1$ SUBL3 #1, DATA_INDEX, RO + 1365 
0 6 Di 00020 CMPL ~=s I, _RO ; 
7D 14 000 BGTR 11$ F 
52 EO Abas 90 003 MOVB DATAPTREIJ, CHAR : 1368 
41 BF 52 91 000 CMPB CHAR, #6 + 1371 
06 1F 00038 BLSSU-2$ : 
SA oS 91 00030 CMPB ss CHAR, -#90 : 
1B 00041 BLEQU 6$ ; 
20 91 00043 28: CMPB CHAR, #32 + 1372 
0S iF 00046 BLSSU 3$ ; 
22 52 91 0004 CMPB = CHAR, -#34 : 
: 1B 00048 BLEQU 6$ ; 
25 91 0004D 3$: CMPB = CHAR, -#37 + 1373 
0S iF 9000 BLSSU 4$ ; 
3F 52 91 0052 CMPB  =s- CHAR, «#63 : 
24 1B 0005 BLEQU 6$ : 
SFOS 2 91 00057 4$: CMPB  —s- CHAR, -#95 + 1374 
1 13 00058 BEQL 6$ : 
61 8F 52 91 0005p CMPB HAR, #97 + 1375 
0B 1F 00061 BLSSU F 
7A —soBF 32 91 00063 CMPB HAR, #122 ; 
05 1A 90067 BGTRU : 
52 20 82 00069 SUBB2 #32, CHAR ; 
OD 11 9006¢ BRB 6$ F 
00758114 8F DD OO06E SS: PUSHL #7700756 + 1376 
000000006 00 gt FB 00074 CALLS #1, LIB$STOP ; 
1 D4 0007B 68: CLAL : 1378 
22 52 91 0007D CMPB  =s CHAR, -#34 : 
0B 12 00080 BNEQ 7$ : 
51 D6 00082 INCL. RY F 
68 gi C 99 SUBL3 #1, BATA_INDEX, RO : 
6 D 8 CMPL =Ssésd, RR ; 
g¢ 13 0088 BEQL «=s1f8 : 
04 1 €9 0008 7$ BLBC ~—=sr_«aR1,, 8S : 1380 
56 DS 090 TSTL F 
16 1 92 BEQL $ ; 
DO A847 90 00094 8$ MOVB CHAR, VOL_OWNERLJ) > 1383 
06 99 INCL : 1384 
0c 1 t 098 BLBC = RI, -:9$ > 1385 
22 E1 ABG 1 0009 CMPB  =s-«dDATA_PTR+1C1J, #34 : 
i A BNEQ 9 ; 
56 C A ADDL2 #2, I : 1387 
11 OOOA BRB 10$ : 1380 
6 D6 OOOAA 9$ im : 1389 


vw 
> 
Zz 


f= 


$33 i 
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; Routine Size: 


Sa ns ht ws 2 


oO 
= 
o 


1 ROUTINE MOVE_CHAR= 
BEGIN 
LOCAL 
TEMP_DATA_INDEX; 
TPARSE_ARGS (CONTEXT); 
TEMP .D DATA_IND DATA ~{NDex + .CONTEXTCTPASL_TOKENCNT); 
a . TEMP ABATAS INDEX GTR 
ERR_EXITCINIT$_BADOWN 
CHSMOVE~(.C TEXTETPASL | T 
peroRA aS = .TEMP_DATA@] 
OOFC 00000 MOVE_CHAR: 
«WORD Sa 
57 0000" CF H: 9002 MOVAB DA 
56 67 10 AC C1 0000 ADDL3 16 
20 56 D1 0000C CMPL iTE 
0D 15 OO000F BLEQ ~=s«1$ 
00758114 8F DD 00011 PUSHL #7 
000000006 00 01 FB 00017 CALLS #1 
50 EO A? OE O001g 1$ MOVAB DA 
00 8740 14 BC 10 AC 28 0002 MOVCS § 16(C 
67 56 DO 0002A MOVL TEMP 
50 01 D0 0002D MOVL = #1 
04 00030 RET 
49 bytes, Routine Base: SCODES + O7EF 
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OKENC CNT], .CONTEXTCTPASL_TOKENPTR], DATA_PTRL.DATA_INDEX]); 


R3, . R5,R6,R7 


2 
NDEX. 
ONTEXTS 0D sDATA pire TEMP_DATA_INDEX 


TA_INDEX 


RO 
CONTEXT), @20(CONTEXT), 
DATA INDEX, DATA_I NDEX 
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5 1241 P 16 3 1 SSTATE (VALUEVOLACC, 
: 1 4¢ P 1639 1 (TPAS_ANY ,DONE ,GET_VOL_ACC) 
ia oe aoe 
> 1265 P 1646 1 SSTATE (OWNER 
: 1 46 P1643 1 (*:" VALUEOWNER,), 
r =", VALUEOWNER, 
124 P1644 1 (*="’ VALUEOWNER,) 
: 1508 ieee te 
> 1250 P 16e9 1 SSTATE (VALUEOWNER 
: 1 21 P 1648 1 (**** ANSI VOLO,MOVE_CHAR), 
:1 ; P1649 1 (*,*°LABEC QUAL, FORMAT V 
: 125 P 1650 1 (TPA$_ SYMBOL , DONE ,FO 
> 1254 P 1651 1 (TPAS-LAMBDA, DONE , FORMAT 
: 158 1888 | vs 
: 1 28 P 1654 1 $STATE (ANSI_VOLO 
: 1258 P1655 1 (*** QALUEOWNER,MOVE_CHAR), 
: 1259 P 1656 1 (TPA$_ANY,ANSI_VOLO,MOVE_CHAR), 
; PAS-EOS. TPAS-EXIT 
1260 P1657 1 (TPAS $“EXITS 
: 1582 1689 " 
:1 8 1660 1 SSTATE (DONE, 
: 1264 P 1661 1 (*," LABEL_QUAL) 
+ 1265 P 166¢ 1 (TPA$_EOS, ~-TPA$S_EXIT) 
+ 1266 1663 1 ); 
> 1267 1664 1 
: 1268 1665 1 END 
> 1269 1666 0 ELUDOM 
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0001D ; TPASKEYSTO 
U.43: -BLKB 
0001D ; TPASKEYST 
U.45: ASCII 
6 7. YTE 
0028 ; TPASKEYSTO 
0.49: | .BL 
00028 jTEASKEYST 
aseit 
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g0085  TPASKEYS10 
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00036 ; TPASKEYST 
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00073 ;TPA KEYST 
U.21 eASCII \END\ 
9007 - BYTE =1 
7 ean t 1 
00078 ; A oggrersto 
23 gSLKB 0 
00078 ; § oggKerst 
23 ASCII \READ\ 
pore “BYTE 1 
07D ; TRASKEYSTO 
0.236: .BLKB 0 
0007D UibA KEYST 
0.238: . ASCII \WRITE\ 
000es BYTE -1 
008 a Toask KEVFIUL ; 
00084 ;TPA kevet 
0.272: 0 
ane: sibabeevsT \VOLUME_ACCESSIBILITY\ 
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00098 BYTE 
00099 gTegaeevst? 
00099 ; TPASKEYST 
0.282: .ASCII 
000A8 
Q00A9 BYTE 
OOOAA ; TPASKEYFILL 
U.288: .BYTE 
.PSECT 
00000 DENSITY_STB:: 
00000 ; TPASTYPE 


U.5: . WORD 
00002 ; TPASADOR 
U.6: LONG 
00006 ; TPASMASK 
0.7: LO 
QO00A ; TPASTYPE 
U.11: WORD 
0000C ;TPASADDR 
U.12: LONG 
00010 ; TPASMASK 
U.13: —.LONG 
00014 ; TPASTYPE 
U.17: ~ WORD 
00016 ; TPASADOR 
U.18: LONG 
QOO1A ; TPASMASK 
U.19: LONG 
QOO1E ; TPASTYPE 
0. 23: WORD 
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U.24: _.LONG <<<INIT_OPTIONS+4>-U.24>-4> ; 
00000010 00024 Ad ae 1“ 
6504 00028 {'SAsTvPE no osese ’ 
sees pi Meee <<<INIT_OPTIONS+4>-U.30>-4 
. Tee a +4>=-U.30>-4> : 
00000020 O002E ; TPASMASK 
U.31: «LONG 32 ; 
15F7 00032 ; TPASTYPE 
U.33: WORD 5623 ; 
FFFF 00034 ; TPASTARGET 
U.34: «WORD =1 : 
600 -BLKB 2 
0038 STRUCTURE_STB:: 
U.36: WORD 24625 : 
00000000* O003A y tPASADDR 
U.37: .LONG <<INIT_OPTIONS-U.37>-4> : 
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U.38: LONG -2147483648 : 
0432 00042 tPASTYPE 
U.39: «WORD 1074 ; 
15F7 00044 vePASTYPE 
v. 40: WORD 5623 3 
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15F7 OOO6A ; TPASTYPE 
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0009A + TPASMASK 
0009€ 


; TPASTARGET 
0.98:  .WORD 
000A0 
OOOA0 ; i 


Cee Cee Cee Cee Cee Cee Ce 
—J.e —je —te —je =—§0e =—dj0 —Je 
ovum veo uN UN UN UNO 
OPMwPOPFOFrOrstr rr 
. oe GPooe oe oe GPoee + Gee 
=a —- =z 
Pd ~< P 
=D wv nn 
* Ge x m 
m ov 
= So 
2 
a 


OOOAA 
OOOAE 
00082 
00084 ;T 


M12 
We=$ep-1986 12:95:19 DT SKSVNSMASTER’ 


88098 PROTECTION STB: : 


2 


28928 
<<PROT_VAL=U.71>=4> 
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<<PROT_VAL-U.79>=4> 
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<<U.81-U.82>-2> 
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<<PROT_VAL-U.87>=4> 
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<<U.89-U.90>-2> 
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<<PROT_VAL-U.95>=4> 
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e t » -U. >-4> : 
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U.111: LONG 2 3 
teenies: itt TAR ORD SYPRO-U.112>-2 
o ar << "UU. >=-/7> 3 
7045 O00CO ; TPASTYPE 
U.115: .WORD 28741 3 
ennenanitinebies § Sie Lone <<PROT_VAL“U.114>=-4 
: ae” “U. >-4> 3 
00000004 000C6 My ae > 
U.115: LONG 4 : 
oe oer At? Hag <<SYPRO-U.116>-2 
o : . -vU. >-2> Py 
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U.117: WORD 28740 3 
ennanicatien MT teem <<PROT_VAL-U.118>=4 
7 $ oe \ "VU. >-4> § 
00000008 00002 ; TPASMASK " 
U.119: .LONG 8 3 
yon Se AY Hee <<SYPRO-U.120>-2 
2 sos "U. -2> 3 
15F6 00008 ; TPASTYPE 
U.121: WORD 5622 3 
0000* OOODA arrogance! 
U.122: .WORD <<U.103-U.122>-2> : 
QOODC ;OWPR 
U.81: -BLKB 0 
003A 000DC altogrere 
U.12 WORD 58 3 
0030 OOODE ; TPASTYPE 
U.124 WORD 61 3 
15F6 OO00E0 receipe 
U.12 «WORD 5622 3 
0000* OOOE2 ; TPASTARGET 
U.126: .WORD <<U.103-U.126>-2> F 
QOOE4 OWPRO: .BLKB 0 
7052 OO0E4 ; TPASTYPE 
U.127: .WORD 28754 3 
00000000* 000E6 pTeAaAoOR 
U.128: .LONG <<PROT_VAL=-U.128>-4> : 
00000010 OOOEA ; TPASMASK 
U.129: .LONG 16 3 
0000* OOOEE j TRARTARGET 
U.13 -WORD <<OWPRO-U.130>-2> 3 
7057 OOOFO ;TPASTYPE 
U.131: .WORD 28759 3 
00000000* OOOF2 ; TPASADDR 
U.132: .LONG <<PROT_VAL-U.132>-4> : 
00000020 000F6 ALL MASK 
0000* OOOFA ; TPASTARGET 
U.1354: . <<OWPRO-U. 134>-2> : 
7045 OOOFC g Teper vre 
U.13 «WORD 28741 3 
00000000* OOOFE ; 1 4 
13 <<PROT_VAL-U. 136>-4> ; 


-LONG 32 3 
| 
| 
| 
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Hee O60 127 808-1 3b 93:48:18 DISKSVMSMASTER:CINIT.SRCJINIPAR.B32;1 ’ (288 
00000040 00102 ; TPASMASK : 
U. : LONG 64 : : 
0000* 00106 ; TPASTARGET 3 
U.138: .WORD <<OWPRO-U.138>-2> : : 
7044 00108 ; TPASTYPE 3 
00000000* 0010A ;T Rroen 3 
U.140: LONG <<PROT_VAL=U.140>=4> : ; 
00000080 O010E ; TPASMASK : 
U. H ~LONG 128 4 . 
0000* 00112 ;T TARGET F 
U.142: . WORD <<OWPRO-U.142>-2> 3 ; 
15F6 00114 ; TPASTYPE ; 
U. : WORD 5622 3 : 
0000* 00116 ;T TARGET : 
U. W <<U.103-U. 144>-2> ; ; 
00118 ;G 0 : 
OO3A 00118 ; - : 
0030 OO11A ; “1 : 
15F6 OOTIC ; § 
. 5622 3 
0000* OO11E ; 3 
<<U.103-U. 148>-2> 3 
00120 0 : 
7052 00120 ; 3 
28754 $ 
00000000* 00122 ; j 
. <<PROT_VAL=-U. 150>=4> : 
00000100 00126 ; 256 : 
0000* 0012A ; 3 
. <<GRPRO-U.152>-2> 3 
7057 0012C ; 3 
. 28759 3 
00000000* O0012E ; 3 
<<PROT_VAL-U. 154>=4> $ 
00000200 00132 ; $12 : 
0000* 00136 ; 3 
<<GRPRO-U. 156>-2> PF 
7045 00138 ; 3 
28741 3 
00000000* 0013A ; 3 
<<PROT_VAL=-U. 158>=4> : 
00000400 0013E ; 3 
s 1024 3 
0000* 00142 ; 3 
‘ <<GRPRO-U. 160>-2> 3 
7044 00144 ; 3 
28740 3 
00000000* 00146 ; 
<<PROT_VAL-U.162>-4> 
00000800 OO14A ; 


2048 
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v04-000 at ae ts 1 94:98:18 DISKSVMSMASTER: CINIT.SRCJINIPAR.632;1 ° (285 
ee AY Meee <<GRPRO-U. 164>-2> 
15F6 00150 Mts Hee . 3 
U.165: .WORD 5622 : ; 
0000* 00152 ; TPASTARGET F 
U.166: .W <<U.103-U. 166>-2> : ; 
00156 aT pptlt® 0 he! 
003A 00154 jas TvPE 3 
0030 00156 Bitagt ee 3 
15F6 00158 ; TPASTYPE 3 
U.169: .WORD 5622 : 5 
0000* 0015A ; TPASTARGET ; 
U.170: .WORD <<U.103-U.170>-2> : $ 
O13¢ WOPRO: .BLKB 0 3 
7052 0015C ; TPASTYPE F 
U.171: WORD 28754 : 3 
00000000* 0015E ; TPASADDR 3 
U.172: .LONG <<PROT_VAL“U.172>-4> 3 é 
00001000 00162 ; TPASMASK 3 
U.173: .LONG 4096 : $ 
0000* 00166 ; TPASTARGET 3 
U.174: WORD <<WOPRO-U.174>=-2> 3 é 
7057 00168 ; TPASTYPE 3 
U.175: .WORD 28759 : F 
00000000* 0016A ; TPASADDR : 
U.176: .LONG <<PROT_VAL-U.176>-4> : ; 
00002000 0016E ; TPASMASK 3 
U.177: .LONG 8192 3 3 
0000* 00172 ; TPASTARGET : 
U.178: WwW <<WOPRO-U.178>-2> : 3 
7045 00174 ; TPASTYPE 3 
U.179: .WORD 28741 : 3 
00000000* 00176 ; TPASADDR 3 
U.180: .LONG <<PROT_VAL-U.180>-4> $ : 
00004000 0017A ; TPASMASK ; 
U.181: .LONG 16384 : 3 
0000* 0017E ; TPASTARGET 3 
U.182: .WORD <<WOPRO-U.182>-2> : 3 
7044 00180 ; TPASTYPE : 
U.183: .WORD 28740 : 3 
00000000* 00182 ; TPASADD 3 
U.184: .LONG <<PROT_VAL-U.184>-4> : | 3 
00008000 00186 ; TPASMASK 3 
U.185: .LONG 32768 ; 3 
0000* 0018A ; TPASTARGET | : 
U.186: .WORD <<WOPRO-U.186>-2> 3 ; 
15F6 0018C ;TPASTYPE : 
U.187: .WORD 5622 : ; 
0000* O018E ; TPASTARGET 3 
U.188: .WORD <<U.103-U.188>-2> 3 3 
00190 ;ENDPRO 3 
U.103: .BLKB 0 é 
102C 00190 ; TPASTYPE 3 
U.189: .WORD 4140 ; : 


> 13 
INIPAR 16-Sep-1984 01:48:1 AX-11 Bliss- 
v04-000 1oxg08-1 382 93:98: } BHASTERCCINIS cone 


984 12:35:1 DISKSVMSMAS STER: CINIT.SRCJINIPAR.B32; ° 9035 


eas 0.790: wORD <<NEXTPRO=U. 190>=2> 
15F7 00194 ; TPASTYPE ’ : 
U.191: .bORD 5623 3 
FFFF 00196 ;TPASTARGET 
0.192: .WORD =1 ; 
00198 Vic STB: . 
45EC 00198 ZTPASTYPE sete 
sicensoilatie jIPASADOR <<OWNER_UIC-U.195>=4> ; 
15F7 O019E ; TPASTYPE Fe , , 
0.196 
FFFF OO1A0 ;TPAS 
G.197:  .WORD =1 : 
001A2 -BLKB 2 


QO1A4 INDEX_STB:: 


] 
| 
| 
| 
: SWORD 5623 : | 
TARGET 
{ 
| 


LK 0 ; 

6100 O01A4 ; TPASTYPE : 
U.202: .WORD 24832 : : 

00000000* 001A6 ; TPASADDR : 
U.203: .LONG <<INIT_OPTIONS-U.203>-4> : 3 

00100000 OO1AA ; TPASMASK : 
U.204: .LONG 1048576 : : 

6101 OO1AE ; TPASTYPE : 
U.208: .WORD 24833 : : 

panreapaes Susie: 515082. ons <<INIT_OPTIONS=U.209>-4 
. £ is # -U. >-4> g 2 

00200000 001B4 ; TPASMASK 3 
U.210: .LONG 2097152 : : 

6102 00188 ;TPASTYPE 3 
U.214: . WORD 24834 3 : 

00000000* 001BA ; TPASADDR : 
U.215: .LONG <<INIT_OPTIONS-U.215>-4> : : 

00400000 OO1BE ; TPASMASK 3 
U.216: .LONG 4194304 : : 

E5F3 O01C2 ; TPASTYPE : 
U.217: .WORD 6669 : ; 

00000000* 001C4 ; TPASACTION : 
U.218: .LONG <<GET_INDEX_LBN-U.218>-4> : : 

00000000* 001C8 ; TPASADDR : 
U.219: .LONG <<INIT_OPTIONS-U.219>-4> ; 3 

00800000 OO1CC ; TPASMASK ; 
U.220: .LONG 8388608 3 : 

15F7 001D0 ; TPASTYPE ; 
U.222: .WORD 5623 : : 

FFFF 00102 ; TPASTARGET ; 
U.225: .WORD -1 s : 

001D4 DATACHECK_STB:: : 

-BLKB 0 3 

71F7 001D4 ; TPASTYPE : 
U.225: .WORD 29175 3 : 

00000000* 001D6 ; TPASADDR : 
U.226: .LONG <<INIT_OPTIONS-U.226>-4> 3 : 

00000100 OO1DA p TORSRASE : 
Udder: . 256 : : 


ibe age 2:35:19 DISKSUNSMASTERSCINIT-SRCJINIPAR.B32;1°%* (25 


FFFF QO1DE ; TPASTARGET 


U.22 : WORD -1 P+ 
OSF6 OO1EO ; TPASTYPE 
U.229: .WORD 1526 ; 
O001E2 meet 0 
6100 O01E2 We Hil 
U.233: .WORD 24832 $ 
epee ati BoaetlO ong <<INIT_OPTIONS=-U.234>-4 
s : ° "U. >-4> 5 
00000080 OO01E8 ; TPASMASK ¥ 
U.235: .LONG 128 3 
6501 OO1EC ; TPASTYPE 
U.239: .WORD 25857 : 
00000000* OO1EE ; TPASADDR 
U.240: .LONG <<INIT_OPTIONS-U.240>-4> : 


00000100 001F2 ; TPASMASK 


U.241: .LONG 256 3 
102C O001F6 STPASTYPE 

U.2 

U.2464: WORD <<CHECKOPT=-U.244>-2> : 
15F7 OO1FA ; TPASTYPE 

U.245: WORD 5623 3 
FFFF OO1FC ; TPASTARGET 

_ Ue 246: oo | : 


OO1F BLKB 
00200 BADBLOCKS _STB:: 0 


LK 
00200 STPASTYP :BLKB 0 


| 
ORD 4140 
0000* OO1F8 ; TBASTARGET 
85F3 00200 


v. . 
0021A ;BLKCNT 


0.248: .WORD -31245 ; 
00000000* 00202 ;TPASACTION 
U.249: .LONG <<GET_BAD_LBN-U.249>-4> : 
102E 00206 ; TPASTYPE 
U.250: 4142 : 
0000* 00208 ; TPASTARGET 
U.252: .WORD <<U.251-U.252>-2> ; 
O5SF6 O020A ; TPASTYPE 
U.253: .WORD 1526 : 
0020C COLON: .BLKB 0 
103A 0020C ; TPASTYPE 
0.254: .WORD 4154 : 
0000* 0020E ; TPASTARGET 
U.256: .WORD <<U.255-U.256>-2> 3 
05F6 00210 tBast YPE 
257: .WORD 1526 3 
p03 Beene: waa 0 
102¢ 1 A: TYP 
. 4140 3 
0000* 00214 ; FBASTARGET 
<<NEXTBLK-U.259>-2> : 
15F7 00216 ; TPASTYPE | 
0.260: .WORD 5623 : 
FFFF 00218 ; TPASTARGET | 
61: WO -1 : 
| 
| 


———_—_——— 
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04-000 1o-g08-1 38s 93:98: DI SKSVMSMASTERSLINIT -SREJINIPAR.B32: 107 (2s, 
U.255: .BLKB 
95F3 OO21A ; TPASTYPE 
U.262: .WORD -27149 : 
nee enanent Inirte 58 ropa 6 <<GET_BAD_COUNT=-U.263>-4 
° : . "Ue >-4> P+ 
0000* 00220 ; TPASTARGET aS 
U.264: .W <<BLKEND-U. 264>-2> : 
—— j 3gf' BLKB  O0 
85F3 00222 gToagtvre 
U.265:  .WORD =31245 3 
00000000* 00224 ; TPASACTION 
U.266: .LONG <<GET_BAD_TRACK=U.266>-4> : 
042E 00228 As Mee 
U.267: .WORD 1070 : 
95F3 O0022A ; TPASTYPE 
U.268: .WORD -27149 : 
00000000* 0022C ;TPASACTION 
U.269: .LONG <<GET_BAD_CYL-U.269>-4> : 
0000* 00230 ; TPASTARGET 
-270: .WORD <<COLON-U.270>-2> $ 
S888 eer uals? 
00 LABEL QUAL grees 
00234 LABEL -2uiL: 0 
7100 00234 ; TPASTYPE 
0.275: .WORD 28928 3 
00000000* 00236 UeSASADDR 
U.276: .LONG <<<INIT_OPTIONS+4>-U.276>-4> : 
00000040 0023A ; TPASMASK 
U. 277: .LONG 64 : 
0000* 0023E ; TPASTARGET 
U.279: .WORD <<U.278-U.279>-2> : 
7501 00240 ; TPASTYPE 
U.283: .WORD 29953 ; 
00000000* 00242 ; TPASADDR 
U.284: .LONG <<<INIT_OPTIONS+4>-U.284>-4> ; 
00000080 00246 ; TPASMASK 
U. 285: .LON 128 : 
0000* O0024A ; TPASTARGET 
U.287: .WORD <<U.286-U.287>-2> : 
0024C A VOLUME 
U. : .BLKB 0 
103A 0024C ; TPASTYPE 
U.289:  .WORD 4154 3 
0000* 0024E ; TPASTARGET 
U.291: .WORD <<U.290-U.291>-2> : 
143D 00250 ; TPASTYPE 
U.292: .WORD 5181 : 
0000* 00252 ; TPASTARGET 
U.293: .WORD  <<U.290-U.293>-2> 3 
00254 ;VA yieew 
U.290: .BLKB 0 
95ED 00254 ; TPASTYPE 
U.294: .WORD -27155 3 


| 
| 
00000000* 00256 ; TPASACTION 
| 


Sep-19 1 VAX-11 Bliss-32 V4.0-742 e 1 
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U.295: .LONG <<GET_VOL_ACC-U.295>-4> : 
0000* 0025A ; sTBASiaRGET hee ipns 


<<U.296-U.297>=2> ; ; 
sae iO Bee BLKB  O 
103A 0025¢ i TPA TPE ies : 
0000* 0025€ s TBASTARGET : 3 
U.300: .WO <<U.299-U.300>-2> : : 
143D 00260 TPASTYPE ai ; 
0000* 00262 ; TRASTARGET , ; 
U.302: .WO <<U.299-U.302>-2> : ; 
00264 ;VALUEOWNER . 
9022 00264 TRAST YPE | a ; 
00000000* 00266 ; TPASACTION , : 
U.304: .LONG <<MOVE_CHAR-U.304>-4> : : 
0000* 0026A Y TPASTARGET : 
U.306: .WORD  <<U.305-U.306>-2> P : 
902C 0026C TBASTYPE wie) See ; 
00000000* 0026€ ;TPASACTION . ; 
U.308: .LONG <<F ORMAT_VOL_OWNER-U. 308>-4> 3 3 
0000* 00272 ; TPASTARGET ; 
U.309: .WORD <<LABEL_QUAL-U.309>-2> : 3 
91F1 00274 ZIBASTYPE ae : 
00000000* 00276 ; TPASACTION : F 
U.311 LO <<FORMAT_VOL_OWNER-U.31 1>-4> : b 
0000* 0027A ; TPASTARGET : 
U.312: .WO <<U.296-U. 312>-2> : : 
95F6 0027¢ ;TPASTYPE saith : 
00000000* 0027E ; TPASACTION : ; 
U.314: .LONG <<FORMAT_VOL_OWNER-U.314>-4> : ; 
0000* 00282 ; TPASTARGET : 
U.315: .WORD <<U.296-U.315>-2> : 3 
a tree Te 0 : 
9022 00284 ZiBASTYPE hee ; : 
00000000* 00286 ;TPASACTION ; : 
U.317: .LONG <<MOVE_CHAR-U.317>-4> : 3 
0000* 0028A ; TPASTARGET F 
U.318: .WORD <<U.299-U.318>-2> : F 
91ED 0028¢ gtBASTYPE iat ; 
00000000* 0028E ; TPASACTION : : 
U.320: .LONG <<MOVE_CHAR-U.320>-4> : : 
0000* 00292 ;TRASTARGE : 
15F7 00294 ,TBASTYPE eee ; 
FFFF 00296 ; TRASTARGET | : 
U.32 oW -1 : | 3 

| 


102C 
0000+ 
15F7 
FFFF 


0000+ 
0000* 
0000+ 
0000+ 
0000* 


0000* 
0000+ 
0000* 


0000* 
0000+ 
0000+ 
0000* 


1SBen-1986 9448-18 


00298 me 
U.29 


:_ ,BLKB 
00298 ; : 


c- 
WOW UW OW Or 


.PSECT 
00000 DENSITY_KTB:: 
00000 ; TPASKEYO 
0.1: .BLKB 
00000 ; TPASKEY 
U.3: ~WORD 
00002 ; TPASKEY 
00004 
00006 
00008 
0000A 


«WORD 


-BLKB 
QOOOC STRUCTURE _KTB:: 


0000¢ gTBAsKeyo 
0000 OVERRIDE _KTB: : 
0000¢ ; TPASKEYO 
0000¢ ;TPASKEY 
QO00E ; TPASKEY 
00010 = TPASKEY 
00012 


-BLKB 
00014 PROTECTION Erete, 


00014 ; TPASKEYO 
00014 ; TPASKEY” 
00016 ;TPASKEY. 
00018 
CX01A 


0001C 


0 
4140 


1 


ane neteaseeanasanasmennnnsss 4 
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_LIBSKEYOS,NOWRT, SHR, PIC,1 


0 
<U.2-U.1> : 
<U.8-U.1> : 
<U.14-U.1> : 
<U.20-U.1> : 
<U.26-U.1> : 
2 
0 
0 
0 
0 
<U.43-U.42> : 
<U.49-U.42> : 


<U.55-U.42> : 


0 
<U.67-U.66> : 
<U.75-U.66> : 
<U.83-U.66> : 
<U.91-U.66> : 
0 


| 
<<LABEL_QUAL-U.325>-2> : | 
5623 : 
| 
| 
| 
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INIPAR 14-43 S$ep-1984 01:48:1 VAX-11 
v04-000 12rgb=}382 93:98 1$ Nee 
OOO1C ;TPA KEYO 
:  ,BLKB 
0001C INDEX JKTB:: 
BLK 0 
0001¢ ALL: KEVO : 
0000* 0001C ; TPASKEY 
U.200: .WORD <U.199-U.198> 
0000* OOOIE ; TPASKEY 
Hiith «WORD <U.205-U.198> 
0000* 00020 ; TPASKEY 
U.212: .WORD <U.211-U.198> 
$00se BLK 2 
00024 DATACHECK_KTB:: 
BLiKB OO 
00024 ; TPASKEYO 
U.224: . BLK 0 
0000* 00024 ; TPASKEY 
U.231: . WORD <U.230-U.224> 
0000* 00026 ; TPASKEY 
.237: .WORD <U.236-U.224> 
00028 BADBLOCKS_KTB:: P 
00028 TBASKEYO ‘ 
00028 LABEL_QUAL KTB:: 
00028 ; TPASKEYO 
0.271: .BLKB 0 
0000* 00028 ; TPASKEY 
e : WOR <U.272-U.271> 
0000* 0002A ; TPASKEY 
U.281: .WORD <U.280-U.271> 
.EXTRN LIBSSTOP 
; PSECT SUMMARY 
3 Name Bytes Attributes 
; $GLOBALS 936 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NO 
; SOWNS 52 NOVEC. WRT, RD .NOEXE.NOSHR, LCL. REL. CON.NO 
: SPLITS 492 NOVEC,NOWRT, RD ,NOEXE, NOSHR. LCL, REL. CON,NO 
; SCODES 2080 NOVEC.NOWRT, RD, EXE .N NOSHR, LCL, E 
;  LIBSKEYOS 44 NOVEC.NOWRT. RD. EXE. SHR. LCL. REL, CON, 
3 TLIBSSTATES 672 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, 
> TLIBSKEY1$ 171 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, 
; Library Statistics 
; ge pk rus Thiele ek Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 


™~m 
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INJPAR 
v04-000 


iets Spa1oBe 2:48:19 — DERKSVMHASTERSCINIS <oRCDINIPAR.B32:1° 9%" (285 


SESE, OE oY of | Bat 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, ,OPTIMIZE)/LIS=LIS$: INIPAR/OBJ=OBJ$:INIPAR MSRC$: INIPAR/UPDATE=(ENHS: INIPAR) 
hg 208 es 2367 data bytes 


Sleseed Time: 02: 
Lines/CPU Min: 13 
Lexemes/CPU-Min: 73429 

Y Used: 378 sae 
Compilation Complete 


L EQUIPMENT CORPORATION 
ENTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS_V4.0 


DIGITA 
CONFID 


